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ABSTRACT 
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An  absence  of  a  Comprehensive  procedure  for  design  of  coal-fueled 
power  plant  ductwork  Currently  exists* in  the  publicly  available  liter¬ 
ature.  This  dissertation  presents  such  a  procedure. 

An  overview  of  the  ductwork  design  environment,  including  major 
components  of  the  air  and  flue  gas  flow  paths,  design  loads  and 
temperatures,  corrosion  considerations,  and  physical  configurations, 
is  given.  Design  criteria  for  materials,  corrosion  inhibition,  mini¬ 
mum  plate  thicknesses,  temperature  effects,  allowable  stresses  and 
deflections,  and  vibrations  are  proposed.  A  detailed  design  procedure 
based  on  the  allowable  stress  design  philosophy  is  presented,  and 
computer  programs  implementing  the  design  procedure  are  provided.  An 
alternate  design  procedure  based  on  the  Load  and  Resistance  Factor 
Design  approach  is  also  discussed. 

The  allowable  stress  design  procedure  is  applied  to  a  horizontal 
section  of  rectangular  ductwork  and  the  results  are  compared  to  a 
previous  design  accomplished  by  hard  calculations .  The  proposed 
design  procedure  provides  savings  in  both  ductwork  material  and 
fabrication  labor,  and  consumes  significantly  less  design  time  than 
the  by-hand  design  approach. 
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This  dissertation  represents  the  results  of  an  investigation 
conducted  during  a  14  month  internship  with  the  Power  Division  of 
Black  &  Veatch,  Engineers-Architects ,  in  Overland  Park,  Kansas.  The 
topic,  structural  design  of  coal-fueled  power  plant  ductwork,  was 
selected  to  fulfill  a  need  in  the  Civil-Structural  department  of  the 
Power  Division.  A  standardized,  computerized  approach  to  ductwork 
design  had  not  been  documented  within  the  department,  and  a  rather 
extensive  search  of  publicly  available  literature  failed  to  produce 
any  such  publication.  This  study  is  intended  to  help  fill  that 
vacuum,  but  certainly  cannot  be  considered  to  be  either  an  exhaustive 
or  definitive  treatment  of  the  subject.  Rather,  its  purpose  is 
practical:  to  provide  a  consistent,  economical,  efficient  design 
method  with  a  sound  theoretical  basis.  While  it  is  believed  that  this 
objective  has  been  satisfied,  it  is  also  recognized  that  others  may 
propose  improvements  to  the  assumptions  or  procedures  presented 
herein.  Such  suggestions  are  welcomed  and  will  benefit  both  the  power 
industry  and  the  clients  it  serves. 

The  reader  is  cautioned  that  independent  professional  judgement 
must  be  exercised  when  the  recommendations  and  procedures  set  forth 
herein  are  applied.  Anyone  making  use  of  this  information  assumes  all 
liability  arising  from  such  use. 

I  sincerely  appreciate  the  guidance  and  valuable  suggestions 
provided  by  my  teachers  and  co-advisors,  Dr.  Joseph  H.  Senne, 
Professor  Emeritus  and  former  Chairman  of  the  Department  of  Civil 
Engineering,  and  Dr.  Wei-Wen  Yu,  • Curators '  Professor  of  Civil  Engi¬ 
neering,  at  the  University  of  Missouri-Rolla .  My  deepest  thanks  go  to 
my  internship  advisor  at  Black  &  Veatch,  Dr.  Robert  P.  McBean,  super¬ 
visor  of  the  Structural  Analysis  Group,  and  former  Associate  Professor 
of  Civil  Engineering  at  the  University  of  Missouri-Columbia ,  for  his 
perceptive  insights  and  steady  encouragement  during  this  odyssey.  I 
also  appreciate  the  assistance  of  the  other  members  of  my  advisory 
committee  at  the  University  of  Missouri-Rolla,  Dr.  William  A.  Andrews, 
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Professor  of  Civil  Engineering,  Dr.  H.  Dean  Keith,  Professor  of  Engi¬ 
neering  Mechanics  and  Assistant  Dean  for  Graduate  Affairs,  School  of 
Engineering,  and  Dr.  Chung  You  Ho,  Professor  of  Computer  Science. 

This  study  would  have  been  impossible  without  the  technical  and 
administrative  support  provided  by  Black  &  Veatch,  Engineers- 
Architects.  I  received  consistently  prompt  and  cheerful  help  from  the 
Black  &  Veatch  employees,  and  in  particular,  from  Mr.  Tod  Sutton,  who 
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computer. 
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project.  And  I  thank  the  Lord  for  giving  me  two  sons,  Nathan  and 
John,  who  provided  the  comic  relief  so  crucial  to  maintenance  of  a 
realistic  perspective  of  it  all. 


V 


TABLE  OF  CONTENTS 


Page 

ABSTRACT .  ii 

PREFACE .  iii 

LIST  OF  ILLUSTRATIONS .  vii 

LIST  OF  TABLES .  viii 

I.  INTRODUCTION .  1 

A.  BACKGROUND .  1 

B.  DUCTWORK  DESIGN  ASPECTS .  1 

C.  IMPORTANCE .  10 

D.  JUSTIFICATION .  11 

II.  REVIEW  OF  LITERATURE .  12 

A.  PUBLISHED  LITERATURE .  12 

B.  PROPRIETARY  INFORMATION .  15 

III.  DESIGN  CRITERIA .  16 

A.  MATERIALS .  16 

B.  CORROSION  ALLOWANCE .  16 

C.  MINIMUM  THICKNESS .  17 

D.  TEMPERATURE  EFFECTS .  17 

E.  ALLOWABLE  STRESSES .  18 

F.  ALLOWABLE  DEFLECTIONS .  18 

G.  VIBRATION  CONSIDERATIONS .  18 

H.  LONGITUDINAL  STIFFENERS .  20 

IV.  DESIGN  PROCEDURE .  21 

A.  OVERVIEW .  21 

B.  LOAD  ANALYSIS .  22 

C.  PLATE  LOAD  DETERMINATION .  24 

D.  STIFFENER  LOAD  DETERMINATION .  25 

E.  PLATE  THICKNESS /STIFFENER  SPACING 

DETERMINATION .  26 

F.  STIFFENER  SIZING .  27 

G.  DUCT  SECTION  CHECKS .  30 

H.  BEARING  STIFFENER  DESIGN .  32 


VI 


V.  ALTERNATE  DESIGN  PROCEDURE .  33 

A.  OVERVIEW .  33 

B.  LOAD  ANALYSIS .  33 

C.  PLATE  LOAD  DETERMINATION .  34 

D.  STIFFENER  LOAD  DETERMINATION .  34 

E.  PLATE  THICKNESS/STIFFENER  SPACING 

DETERMINATION .  34 

F.  STIFFENER  SIZING .  35 

G.  DUCT  SECTION  CHECKS .  35 

H.  BEARING  STIFFENER  DESIGN .  35 

I.  RECOMMENDED  RESEARCH .  35 

VI.  RESULTS  AND  DISCUSSION .  36 

A.  DESIGN  EXAMPLE .  36 

B.  RESULTS .  36 

C.  DISCUSSION .  36 

VII.  CONCLUSIONS .  42 

BIBLIOGRAPHY .  43 

VITA .  46 

APPENDICES 

A.  SYMBOLS  AND  NOTATION .  47 

B.  ALLOWABLE  STRESS  DESIGN  PROCEDURE .  56 

1.  OVERVIEW .  56 

2.  LOAD  ANALYSIS .  56 

3.  PLATE  THICKNESS  AND  STIFFENER  SPACING 

DETERMINATION .  100 

4.  PINNED-END  STIFFENER  DESIGN .  106 

5.  RIGID  FRAME  STIFFENER  DESIGN .  133 

6.  DUCT  SECTION  CHECKS .  156 

7.  BEARING  STIFFENER  DESIGN .  163 

C.  COMPUTER  PROGRAMS .  164 

D.  DESIGN  EXAMPLE .  227 


■w- 


LIST  OF  ILLUSTRATIONS 


Figures  Page 

1.  Schematic  Diagram  of  Air/Flue  Gas  Flow  Path  in  a  Typical 

Coal-Fueled  Power  Plant .  3 

2.  Examples  of  Pinned-End  Stiffener  Corner  Connections .  28 

3.  Examples  of  Rigid  Frame  Stiffener  Corner  Connections .  29 

4.  Stiffener  Spacing  Schemes .  40 

5.  Duct  Cross  Section  Nomenclature .  57 

6.  Combined  Stiffener  and  Effective  Plate .  108 

7.  Stiffener  Rigid  Frame .  135 

8.  Modified  Superposition  of  Stiffener  Loading .  153 

9.  Effective  Duct  Cross  Section .  157 


LIST  OF  TABLES 


Tables 


m 

drag 

i’Cyo 

i.cXq 


f 


I  Typical  Values  of  Air/Gas  Temperatures  at  Selected  Duct 


Locations . 


$8 

$ 


II  Previous  Design. 


Ill  Pinned-End  Stiffener  Design. 


IV  Rigid  Frame  Stiffener  Design. 


1 


I .  INTRODUCTION 


A.  BACKGROUND 

The  design  of  a  modern  electrical  generating  plant  is  a  complex 
and  time  consuming  task,  involving  various  disciplines  across  the 
scientific  and  engineering  spectrum.  Although  the  structural  costs 
of  a  typical  coal-fueled  power  plant  are  generally  less  than  30%  of 
the  project  total  cost,  the  failure  of  any  structural  component  can  be 
economically  devastating,  costing  the  utility  as  much  as  $100,000  per 
day  for  replacement  power.  This  "low  cost  percentage  versus  high 
required  reliability"  characteristic  of  the  structural  components  of 
a  power  plant  tends  to  influence  structural  engineers  to  forgo 
detailed  materials  saving  designs  (such  as  might  be  achieved  with 
finite  element  analysis)  in  favor  of  quicker,  more  general  methods. 
Although  these  methods  may  result  in  the  use  of  more  or  stronger 
materials  than  technically  required,  they  have  traditionally  been 
economically  justifiable,  particularly  in  light  of  the  owner's  vested 
interest  in  holding  the  design  and  construction  time  to  a  minimum. 
However,  the  ascendancy  of  computer-aided  design  has  enabled  design 
firms  to  increasingly  refine  their  designs,  thus  providing  owners  with 
more  economical  structures  while  simultaneously  reducing  their  own 
design  durations. 

One  facet  of  the  structural  design  of  a  coal-fueled  power  plant 
in  which  such  design  streamlining  may  be  achieved  involves  the  design 
of  the  ductwork  which  handles  gases  exhausted  from  the  steam  generator 
(or  boiler)  and  routed  through  the  air  quality  control  equipment  to 
the  chimney.  The  purpose  of  the  author's  internship  at  Black  & 
Veatch,  Engineers-Architects ,  was  to  develop  a  technical  guide  and 
accompanying  computer  programs  to  be  used  by  engineers  in  the  Power 
Division  for  design  of  these  large  steel  ducts. 

B.  DUCTWORK  DESIGN  ASPECTS 

In  order  that  the  reader  may  appreciate  the  design  environment,  a 
brief  description  of  the  factors  affecting  ductwork  design  is  pre¬ 
sented  . 
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1.  Power  Plant  Components.  Although  specific  configurations  of 
modern  power  plants  vary  depending  upon  both  owner  and  designer 
preferences,  all  have  certain  components  in  common.  This  presentation 
addresses  ductwork  in  balanced-draft  coal-fueled  power  plants.  The 
descriptions  following  cover  major  items  of  equipment  associated  with 
the  air  and  flue  gas  flow  path  in  a  single  power  generation  unit  at  a 
typical  plant.  Most  power  plants  have  several  units  so  that  power 
generation  can  continue  even  though  one  or  more  units  may  be  down  for 
maintenance  or  repairs,  or  due  to  low  power  demand.  It  will  be  help¬ 
ful  for  the  reader  to  refer  to  the  schematic  diagram  shown  in  Figure  1 
as  the  different  components  are  discussed. 

a.  Steam  Generator.  Commonly  called  the  boiler,  the  steam 
generator  includes  a  combustion  chamber  in  which  pulverized  coal  is 
burned  and  high  pressure  piping  in  which  steam  is  created.  The  steam 
drives  the  turbine  that  powers  the  electrical  generator. 

b.  Air  Heater.  The  air  heater  is  a  heat  exchanger  in  which  heat 
is  extracted  from  the  exhaust  gases  of  the  steam  generator  and  used 
to  raise  the  temperature  of  the  combustion  air  and  thus  increase  the 
efficiency  of  the  steam  generator.  It  is  a  large  revolving  drum 
consisting  of  a  fine  steel  mesh  with  large  surface  area  that  rotates 
alternately  through  the  hot  flue  gases  and  the  cool  combustion  air, 
transfering  heat  from  the  former  to  the  latter.  In  the  air  heater, 
the  exhaust  gas  is  typically  reduced  from  a  temperature  of  around 
800°F  to  between  280°F  and  325°F. 

c.  Forced  Draft  (FD)  Fan.  The  FD  fan  takes  air  from  the  fresh 
air  intake  and  pushes  it  through  the  air  heater  into  the  combustion 
chamber  of  the  steam  generator.  It  is  either  a  variable  speed  (or  two 
speed)  centrifugal  fan  with  backward  curved  airfoil  blades,  or  a 
variable  pitch  vaneaxial  flow  fan. 

d.  Electrostatic  Precipitator.  Due  to  increasingly  stringent 
air  pollution  control  standards,  all  modern  coal-fueled  power  plants 


FIGURE  I.  SCHEMATIC  DIAGRAM  OF  AIR/FLUE  GAS  FLOW  PATH 
IN  A  TYPICAL  COAL-FUELED  POWER  PLANT 
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must  have  either  a  precipitator  or  fabric  filter  (see  below). 
Designed  to  remove  particulate  matter,  or  fly  ash,  from  the  flue  gas, 
the  precipitator  consists  of  a  large  number  of  electrically  charged 
plates.  As  the  flue  gas  passes  through  the  precipitator,  particles 
in  the  gas  take  on  an  electrostatic  charge  and  are  collected  on  the 
plates.  Existing  plants  may  have  either  a  hot  precipitator,  located 
upstream  of  the  air  heater,  or  a  cold  precipitator,  located  after  the 
air  heater.  The  hot  precipitator  is  theoretically  more  effective  in 
removing  particulates  from  the  gas,  but  operational  and  maintenance 
problems  associated  with  the  high  temperatures  upstream  of  the  air 
heater  have  rendered  hot  precipitators  virtually  obsolete  with  respect 
to  new  power  plant  designs. 

e.  Fabric  Filter.  Because  a  higher  percentage  particulate 
removal  is  possible  with  fabric  filters,  they  are  increasingly  replac¬ 
ing  precipitators  in  new  designs.  Commonly  known  as  a  baghouse,  the 
fabric  filter  operates  under  the  same  principle  as  a  domestic  vacuum 
cleaner.  The  gas  is  forced  through  a  series  of  fiberglass  reinforced 
fabric  bags,  and  particles  in  the  gas  are  filtered  out  and  deposited 
on  the  bags.  Because  high  temperatures  would  destroy  the  bags,  fabric 
filters  are  always  placed  downstream  of  the  air  heater,  and  a  bypass 
duct  is  required  to  carry  the  exhaust  gases  around  the  fabric  filter 
in  case  of  an  air  heater  failure. 

f.  Induced  Draft  (ID)  Fan.  The  ID  fan  typically  pulls  gas  from 
the  boiler  through  the  air  heater  and  precipitator  or  fabric  filter, 
and  pushes  it  through  the  scrubber  and  up  the  stack.  It  is  generally 
a  variable  speed  centrifugal  fan  with  backward  curved  airfoil  blades, 
but  it  may  be  a  vaneaxial  fan.  A  unit  which  includes  both  an  FD  and 
ID  fan  is  said  to  have  a  balanced  draft  system,  since  there  is  a  point 
within  the  steam  generator  at  which  the  gage  pressure  is  zero.  Both 
positive  and  negative  internal  pressures  occur  along  the  air/gas  flow 
path  between  the  fans. 
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g.  Scrubber.  In  the  majority  of  power  plants,  the  scrubber  is 
the  central  feature  of  the  Flue  Gas  Desulfurization  (FGD)  system.  As 
these  names  imply,  the  purpose  of  the  scrubber  is  to  remove  sulfur  (in 
the  form  of  sulfur  dioxide  and  trioxide)  from  the  combustion  gas.  In 
most  cases,  this  is  accomplished  by  contacting  the  gas  with  an  alka¬ 
line  scrubbing  solution,  usually  slurries  of  lime  or  limestone,  so 
that  the  sulfur  dioxide  and  trioxide  react  with  calcium  carbonate  or 
hydroxide  to  form  a  solid  waste  product  of  calcium  sulfite  and 
sulfate.  The  majority  of  FGD  systems  have  wet  scrubbers,  in  which  the 
gas  enters  at  around  300°F  and  leaves  in  a  saturated  condition  at 
about  125°F.  Recently  a  few  power  plants  have  come  on  line  with  dry 
scrubbers,  which  are  effective  for  treating  flue  gas  from  boilers 
burning  low  sulfur  coals.  These  are  sometimes  placed  upstream  of  the 
ID  fan.  Due  to  the  limited  use  and  applicability  of  dry  scrubbers, 
this  study  focuses  on  FGD  systems  using  wet  scrubbers  which  are 
located  downstream  of  the  ID  fan. 

h.  Chimney.  The  chimney,  or  stack,  is  the  last  component  in 
the  gas  flow  path.  Its  purpose  is  to  disperse  the  flue  gas  into  the 
atmosphere.  Some  systems  include  a  gas  reheater  downstream  of  the 
scrubber  to  reheat  the  saturated  gas  enough  to  avoid  condensation  and 
the  resulting  formation  of  a  sulfuric  acid  film  on  the  stack  lining. 
Whether  or  not  a  reheater  is  included,  the  primary  maintenance  problem 
associated  with  the  chimney  is  corrosion  of  the  stack  liner. 

2.  Pressures .  Normal  operation  vacuums  and  pressures  in  the 
duct  system  vary  depending  on  location  along  the  air  or  gas  flow  path. 
Positive  internal  pressure  occurs  from  the  FD  fan  through  the  air 
side  of  the  air  heater  to  the  steam  generator.  Negative  internal 
pressure  (vacuum)  occurs  from  the  boiler  downstream  to  the  ID  fan.  A 
slight  decreasing  positive  pressure  exists  from  the  ID  fan  on,  until 
atmospheric  pressure  is  reached  at  the  top  of  the  stack.  Specific 
values  for  design  operating  pressures  and  vacuums  vary  depending  upon 
the  configuration  of  the  system  and  choice  of  equipment.  A  typical 
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value  for  the  design  operating  pressure  is  14  inches  H^O  (73  psf)  and 
for  the  design  operating  vacuum  is  22  inches  H^O  (114  psf).  Excursion 
pressures  or  vacuums  may  occur  due  to  either  a  master  fuel  trip  in  the 
steam  generator,  or  a  malfunction  of  the  FD  or  ID  fan  controls. 
Typical  design  values  for  excursion  conditions  are  26  inches  H^O 
(135  psf)  for  excursion  pressure  and  43  inches  J^O  (224  psf)  for 
excursion  vacuum. 

3.  Temperatures .  Gas  temperatures  influence  the  design  in 
several  ways.  With  high  enough  temperatures  (above  approximately 
600°F)  the  strength  and  stiffness  properties  of  the  duct  and  stiff¬ 
eners  may  be  affected.  Even  at  lower  temperatures,  thermal  expansion 
must  be  considered  and  designed  for.  Also,  as  mentioned  previously, 
the  gas  temperature  can  strongly  influence  the  degree  of  corrosion 
encountered  in  a  duct.  Typical  values  of  both  normal  operating  and 
excursion  temperatures  for  selected  sections  of  duct  are  given  in 
Table  I. 

a.  Normal  Operating  Temperature.  The  gas  temperature  for  use  in 
design  will  generally  be  the  normal  operating  temperature.  This  is 
the  temperature  of  the  gas  when  all  components  of  the  gas  flow  system 
are  functioning  as  designed. 

b.  Excursion  Temperature.  Failure  of  the  air  heater  or  mal¬ 
function  of  the  wet  scrubber  or  one  of  the  fans  are  occurrences  that 
might  lead  to  excursion  temperatures  as  shown  in  Table  I.  Due  to 
extensive  control  systems  and  the  ability  to  quickly  trip  malfunction¬ 
ing  units,  these  temperatures  generally  last  for  only  five  to  ten 
minutes . 

4.  Ash  Buildup.  Among  live  loads  to  be  considered  in  design  is 
the  accumulation  of  fly  ash  on  the  bottom  plate  of  the  duct.  At  low 
power  the  gas  velocity  may  not  be  sufficient  to  carry  the  particulate 
material  to  the  fabric  filter  or  precipitator,  in  which  case  some 
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TABLE  I 

TYPICAL  VALUES  OF  AIR/GAS  TEMPERATURES  AT  SELECTED  DUCT  LOCATIONS 


Location  in  Ductwork _  Typical  Temperature  Range  (°F) 


From 

To 

Normal 

Operating 

Excursion 

Fresh  air  intake 

FD  fan 

Site  mean 
ambient 

Site  extreme 
high  or  low 

Steam  generator 

Air  heater 

700  to 

850 

700 

to  850 

Air  heater 

Precipitator  or 
fabric  filter 

280  to 

325 

700 

to  850 

Precipitator  or 
fabric  filter 

Wet  scrubber 

280  to 

325 

700 

to  850 

Wet  scrubber 

Reheater 

120  to 

130 

550 

to  650 

Reheater 

Chimney 

160  to 

170 

550 

to  650 

•k 

These  excursion  temperatures 
heater  and  should  not  last  for  more 

are  based  on 
than  five  to 

failure  of 
ten  minutes 

the  air 
for  new 

steam  generator  units. 
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material  will  fall  out  in  the  ductwork.  Although  this  ash  is  gener¬ 
ally  removed  during  periodic  scheduled  unit  outages,  it  may  accumulate 
to  several  feet  deep  in  certain  spots.  Design  live  loads  of  nearly 
200  psf  for  ash  alone  have  been  common  in  past  ductwork  designs. 

An  additional  concern  is  the  thermal  stress  caused  by  temperature 
differentials  which  may  be  introduced  because  of  ash  buildup.  The  ash 
acts  as  a  thermal  insulator  and  has  a  large  thermal  capacity.  After 
unit  shutdown,  portions  of  the  duct  not  in  contact  with  the  ash  cool 
relatively  quickly,  while  portions  of  the  duct  in  contact  with  the  hot 
ash  remain  at  the  hot  ash  temperature.  The  resulting  thermal  stresses 
in  the  ductwork  can  be  severe.  If  the  ash  is  allowed  to  cool  and  the 
unit  is  restarted  without  removing  the  ash,  a  similar  problem  occurs. 
In  this  case,  portions  of  the  duct  insulated  by  the  ambient  tempera¬ 
ture  ash  remain  cool  while  the  rest  of  the  duct  is  raised  to  the 
temperature  of  the  hot  air  or  gas.  Again,  this  temperature  differ¬ 
ential  can  lead  to  high  thermal  stresses  in  the  ductwork. 

5.  Corrosion.  Although  the  FGD  system  removes  a  large  per¬ 
centage  of  the  sulfur  from  the  flue  gas,  enough  remains  to  cause 
severe  corrosion  problems  downstream  of  the  wet  scrubber.  Tempera¬ 
tures  of  around  300°F  upstream  of  the  scrubber  are  hot  enough  to 
maintain  the  sulfur  in  the  form  of  sulfur  dioxide  and  sulfur  trioxide 
gas,  and  corrosion  is  generally  not  a  problem.  Carbon  steels  have 
proven  entirely  satisfactory  for  items  exposed  to  the  flue  gas  before 
the  scrubber.  Downstream  of  the  wet  scrubber,  however,  the  gas 
emerges  at  a  relatively  low  temperature  and  laden  with  water.  Sulfur 
trioxide  reacts  with  water  to  form  sulfuric  acid,  which  is  extremely 
corrosive  if  allowed  to  condense  on  the  duct.  Thus,  the  flue  gas 
temperature  downstream  of  a  wet  scrubber  should  be  kept  above  the 
acid  dew  point,  but  this  doesn't  always  happen.  In  addition,  corrosion 
by  chlorides  is  common  in  gas  ductwork.  Special  duct  linings  as  well 
as  corrosion  resistant  alloys  are  used  in  regions  of  high  corrosion, 
but  corrosion  problems  still  persist. 


6.  Site  Conditions.  Standard  design  live  loads  to  be  considered 
include  wind,  snow,  and  seismic  loads.  Additionally,  the  designer 
must  consider  what  ambient  temperature  to  base  his  thermal  expansion 
calculations  on,  and  the  erector  must  make  appropriate  modifications 
if  the  temperature  at  the  time  of  erection  differs  from  the  assumed 
ambient  temperature. 

7.  Ductwork  Configuration.  Several  factors  complicate  the 
structural  design  of  this  ductwork.  Some  of  the  more  prominent  are 
mentioned  below. 

a.  Geometric  Considerations.  Ideally,  the  ductwork  should  be 
laid  out  to  minimize  gas  flow  restrictions  and  thus  keep  the  fan  size 
and  operating  costs  as  small  as  possible.  This  will  also  minimize  ash 
buildup.  Practically,  however,  the  layout  and  shape  of  the  duct  are 
determined  to  a  large  extent  by  the  placement  of  equipment  and  the 
requirement  to  avoid  interference  with  other  elements  of  the  power 
plant.  Consequently,  gas  flow  paths  and  cross-section  shapes  may  turn 
out  to  be  more  complicated  than  would  seem  necessary  at  first  glance. 
Since  the  cross-sectional  area  of  the  duct  is  determined  by  gas  flow 
requirements  and  not  by  structural  considerations,  extremely  large 
width-to-thickness  ratios  are  commonly  encountered  in  the  duct  plate, 
making  different  buckling  modes  of  prime  concern  in  design.  Cross 
sections  as  large  as  20  feet  by  30  feet  using  5/16  inch  plate  are  not 
unusual.  The  structural  designer  is  tempted  to  circumvent  this 
problem  by  providing  extensive  internal  bracing  and  trussing,  but 
Clayl  has  convincingly  demonstrated  that  the  design  effort  and  initial 
construction  cost  that  might  be  saved  by  this  approach  would  be 
insignificant  compared  to  the  added  operational  costs  due  to  the 
restricted  gas  flow  that  would  accompany  such  a  design.  Thus,  the 
designer  is  compelled  to  provide  ductwork  with  minimum  internal 
obstructions,  which  is  not  generally  compatible  with  the  simplest 
structural  design. 
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b.  Thermal  Expansion  Joints.  Although  composing  but  a  small 
portion  of  the  total  ductwork  design,  expansion  joints  pose  a  major 
problem  both  from  a  design  and  a  maintenance  standpoint.  Determining 
and  providing  for  thermal  movements,  and  dealing  with  the  high  temper¬ 
atures  and  corrosive  environment  encountered  by  expansion  joints  are 
prime  concerns  of  the  designer.  Currently,  expansion  joints  in 
ductwork  are  either  of  the  metallic  type,  consisting  of  metallic 
bellows,  or  nonmetallic  type,  of  which  there  are  numerous  configura¬ 
tions  involving  a  variety  of  materials.  The  metallic  type  is 
generally  favored  for  longevity. 

c.  Stiffeners .  As  mentioned  previously,  very  large  width-to- 
thickness  ratios  are  common  in  design  of  the  duct  plate.  Since 
internal  longitudinal  trussing  is  to  be  avoided  if  at  all  possible, 
external  stiffeners  are  the  order  of  the  day  in  ductwork  design. 
Historically,  both  longitudinal  and  transverse  external  stiffeners 
have  been  used,  but  the  current  trend  is  to  use  transverse  stiffeners 
only,  unless  unusual  circumstances  require  longitudinal  ones. 

d.  Insulation/Lagging .  After  erection,  most  of  the  ductwork  is 
covered  by  thermal  insulation  and  lagging,  the  metal  paneling  which 
protects  the  insulation.  This  additional  weight  must  be  considered 
along  with  the  dead  load  of  the  duct  itself.  The  insulation  and 
lagging  generally  weighs  from  5  to  10  pounds  per  square  foot. 

C.  IMPORTANCE 

Since  Black  &  Veatch  does  not  presently  have  a  standardized 
ductwork  design  guide,  implementation  of  the  design  procedure 
described  herein  and  use  of  the  accompanying  computer  programs  will 
significantly  reduce  design  and  review  hours  dedicated  to  these 
exhaust  ducts.  Furthermore,  since  no  industry  standard  exists 
specifically  for  the  design  of  power  plant  exhaust  ducts,  the  discus¬ 
sion  and  conclusions  contained  herein  should  be  of  general  interest  to 
the  power  industry. 


D.  JUSTIFICATION 


Design  of  exhaust  gas  ductwork  was  chosen  as  the  subject  of  this 
internship  for  several  reasons.  The  completed  design  guide  and 
computer  program  will  save  design  hours  on  future  projects  involving 
ductwork  and  provide  for  standardized  designs  within  the  Power 
Division  at  Black  &  Veatch.  In  addition  to  being  of  manageable  scope 
for  a  one  year  internship,  this  project  satisfies  the  requirement  of 
being  significant,  creative  and  independent  engineering  work.  It 
provides  an  original  contribution  to  both  the  company  and  to  the  power 
engineering  community  as  a  whole. 


12 


I 


% 

r 

1 
1 


H 

% 

$ 


II.  REVIEW  OF  LITERATURE 


A.  PUBLISHED  LITERATURE 

Prior  to  development  of  a  systematic  procedure  for  ductwork 
structural  design,  the  publicly  available  literature  was  searched  for 
information  pertaining  to  the  subject.  Following  is  a  description  of 
the  search  itself,  as  well  as  the  results  of  the  investigation. 

1.  Scope  of  Search.  A  manual  literature  search  of  American 

Society  of  Civil  Engineers'  publications  from  1930  to  the  present,  as 

well  as  American  Society  of  Mechanical  Engineers'  publications  from 

1880  to  the  present,  was  conducted.  In  addition,  a  computer-aided 

literature  search  of  10  different  databases  was  accomplished.  A  brief 

2 

description  taken  from  the  Dialog  Database  Catalog  of  each  database 
searched  follows. 


m 


a.  COMPENDEX.  With  1,284,500  records  covering  1970  to  the 
present,  COMPENDEX  is  the  machine-readable  version  of  Engineering 
Index  (published  by  Engineering  Information,  Inc. ,  New  York,  New  York) 
which  provides  abstracted  information  from  the  world’s  significant 
engineering  and  technological  literature. 

b.  CONFERENCE  PAPERS  INDEX.  With  1,061,000  records  covering 
1973  to  the  present,  CONFERENCE  PAPERS  INDEX  (published  by  Cambridge 
Scientific  Abstracts,  Bethesda,  Maryland)  provides  access  to  records 
of  more  than  100,000  scientific  and  technical  papers  presented  at  over 
1,000  major  regional,  national,  and  international  meetings  each  year. 
Primary  subject  areas  covered  include  the  life  sciences,  chemistry, 
physical  sciences,  geosciences,  and  engineering. 

c.  DISSERTATION  ABSTRACTS  ONLINE.  With  845,000  records  covering 
1861  to  the  present,  DISSERTATION  ABSTRACTS  ONLINE  (published  by 
University  Microfilms  International,  Ann  Arbor,  Michigan)  is  a  defini¬ 
tive  subject,  title,  and  author  guide  to  virtually  every  American 


dissertation  accepted  at  an  accredited  institution  since  1861.  It 
also  serves  to  disseminate  citations  for  thousands  of  Canadian  disser¬ 
tations  and  an  increasing  number  of  papers  accepted  in  institutions 
abroad . 


d.  Ei  ENGINEERING  MEETINGS.  With  196,000  records  covering  1979 
to  the  present,  Ei  ENGINEERING  MEETINGS  (published  by  Engineering 
Information,  Inc.,  New  York,  New  York)  is  an  index  to  significant 
published  proceedings  of  engineering  and  technical  conferences, 
symposia,  meetings,  and  colloquia.  It  covers  all  areas  of  engineer¬ 
ing,  including  civil,  bioengineering,  electrical,  mechanical, 
petroleum,  automotive,  and  aerospace. 

e.  ELECTRIC  POWER  DATABASE.  With  13,000  records  covering  1972 
to  the  present,  ELECTRIC  POWER  DATABASE  (published  by  Electric  Power 
Research  Institute,  Palo  Alto,  California)  includes  references  to 
research  and  development  projects  of  interest  to  the  electric  power 
industry  and  corresponds  to  the  printed  work  Digest  of  Research  in  the 
Electric  Utility  Industry.  The  records  include  abstracts  of  project 
summaries  for  past  and  ongoing  research  projects. 

f.  FEDERAL  RESEARCH  IN  PROGRESS.  With  72,000  records,  the 
FEDERAL  RESEARCH  IN  PROGRESS  database  (published  by  the  National 
Technical  Information  Service,  U.S.  Department  of  Commerce,  Spring- 
field,  Virginia)  provides  access  to  information  about  ongoing 
federally  funded  research  projects  in  the  fields  of  physical  sciences, 
engineering,  and  life  sciences. '  Records  in  this  database  detail 
research  either  currently  in  progress  or  initiated  and  completed 
during  the  previous  two  years. 

.  ISMEC  (Information  Service  in  Mechanical  Engineering) .  With 


161,000  records  covering  1973  to  the  present,  ISMEC  (published  by 
Cambridge  Scientific  Abstracts,  Bethesda,  Maryland)  indexes  signifi¬ 
cant  articles  in  all  aspects  of  mechanical  engineering,  production 


engineering,  and  engineering  management  from  approximately  250 
journals  published  throughout  the  world.  In  addition,  books,  reports, 
and  conference  proceedings  are  indexed. 

h.  LC  MARK.  With  1,806,500  records  covering  1968  to  the 
present,  the  LC  MARK  database  (published  by  the  U.S.  Library  of  Con¬ 
gress)  contains  complete  bibliographic  records  for  all  books  cataloged 
by  the  U.S.  Library  of  Congress,  beginning  with  books  in  English  and 
adding  coverage  of  books  in  other  languages  from  1970  through  1979. 

i.  NTIS .  With  1,053,000  records  covering  1964  to  the  present, 
the  NTIS  database  (published  by  the  National  Technical  Information 
Service,  U.S.  Department  of  Commerce,  Springfield,  Virginia)  consists 
of  government-sponsored  research,  development,  and  engineering  plus 
analyses  prepared  by  federal  agencies,  their  contractors  or  grantees. 
It  contains  material  from  both  the  hard  and  soft  sciences,  including 
substantial  material  on  technological  applications,  business  proce¬ 
dures,  and  regulatory  matters. 

j.  SCISEARCH.  With  5,568,000  records  covering  1974  to  the 
present,  SCISEARCH  (published  by  Institute  for  Scientific  Information, 
Philadelphia,  Pennsylvania)  is  a  multidisciplinary  index  to  the 
literature  of  science  and  technology.  It  contains  all  the  records 
published  in  Science  Citation  Index  and  additional  records  from  the 
Current  Contents  series  of  publications  that  are  not  included  in  the 
printed  version  of  Science  Citation  Index.  SCISEARCH  covers  every 
area  of  the  pure  and  applied  sciences. 

2.  Results .  The  volume  of  published  literature  covering  struc¬ 
tural  design  of  power  plant  air  and  flue  gas  ductwork  is  minuscule. 

3 

Clay  does  give  an  example  of  determining  maximum  transverse  stiffener 
spacing  for  a  given  duct  plate  thickness,  based  on  allowable  stress  in 
the  plate.  He  also  presents  a  method  of  determining  stresses  in 
transverse  stiffeners  connected  rigidly  at  the  duct  corners. 
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The  Sheet  Metal  and  Air  Conditioning  Contractors'  National 

Association  has  published  a  manual  for  rectangular  industrial  duct 
4 

design.  In  it,  a  table-oriented  method  of  designing  relatively  small 
rectangular  ducts  using  a  number  of  conservative  simplifying  assump¬ 
tions  is  presented.  Its  applicability  to  power  plant  ductwork  design 
is  limited,  since  the  maximum  size  cross  section  included  in  the 
tables  is  14  by  14  feet,  and  the  only  allowable  plate  or  stiffener 
stress  considered  is  24  ksi.  Humphreys^  has  developed  a  nomograph  for 
use  in  design  of  flat  plate  panels  with  large  deflections  which  may  be 
used  in  plate  thickness  and  stiffener  spacing  selection. 

No  other  literature  addressing  structural  ductwork  design  was 
located . 

B.  PROPRIETARY  INFORMATION. 

Without  question,  systematic  design  methods  exist  within  firms 
that  specialize  in  design  and  fabrication  of  large  steel  ducts  such  as 
are  required  in  coal-fueled  power  plants.  However,  such  information 
is  not  publicly  available  due  to  the  competitive  nature  of  the 
industry,  and  could  .not  be  obtained  by  the  author. 


III.  DESIGN  CRITERIA 


A.  MATERIALS 

An  important  step  in  successful  design  of  a  ductwork  section  is 
appropriate  materials  selection  for  the  duct  plate,  corner  angles, 
stiffeners  and  internal  bracing.  In  sections  of  ductwork  in  which 
corrosion  is  not  a  problem,  materials  selection  is  uncomplicated.  The 
designer's  main  concerns  are  to  meet  allowable  stress  requirements  and 
to  specify  steels  with  good  weldability.  Unlined  carbon  and  high- 
strength,  low-alloy  steels  such  as  ASTM  A36  and  A588  Grade  50, 
respectively,  are  commonly  used  in  noncorrosive  environments. 

The  structural  designer  should  seek  the  advice  of  a  materials  and 
corrosion  expert  when  specifying  the  steel  for  use  in  corrosive 
environments .  The  chemical  composition  of  the  flue  gas  and  associated 
condensation  varies  widely  depending  on  such  factors  as  the  type  of 
coal  burned  and  the  air  quality  control  system  configuration.  The 
temperature  of  the  flue  gas  also  has  a  dramatic  influence  on  the 
degree  and  type  of  corrosion  present. 

Currently,  several  different  methods  of  corrosion  protection  are 
used.  The  duct  may  be  constructed  with  carbon  or  low-alloy  steel  and 
lined  with  an  inorganic  material  or  ceramic.  These  liners  may  include 
prefired  brick  shapes,  hydraulic-bonded  concretes  and  mortars,  or 
chemically-bonded  concretes  and  mortars.  Other  methods  of  steel 
protection  include  use  of  rubber  linings  or  polymeric  coatings. 
Corrosion  resistant  high-nickel  alloys,  such  as  ASTM  UNS  Alloys 
N06007,  N06625  and  N10276  (manufacturers'  designations  Hastelloy  G, 
Inconel  625  and  Hastelloy  C-276,  respectively)  are  also  used  as  duct 
plate  or  duct  lining.  Whatever  method  of  corrosion  protection  is 
ultimately  selected,  the  ductwork  designer  must  use  the  appropriate 
structural  and  material  properties  in  his  design  calculations  and  must 
consider  any  additional  loads  which  may  be  introduced. 

B.  CORROSION  ALLOWANCE 

In  addition  to  the  corrosion  protection  considerations  mentioned 
above,  the  designer  may  decide  to  include  a  corrosion  allowance  when 
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specifying  the  duct  plate  thickness.  This  additional  thickness  is 
generally  between  1/16  and  1/8  inch.  In  the  design  procedure  pre¬ 
sented  here,  the  additional  thickness  due  to  the  corrosion  allowance 
is  not  considered  in  the  structural  calculations,  except  that  the 
added  weight  of  the  corrosion  allowance  is  included  in  the  load 
analysis . 

C.  MINIMUM  THICKNESS 

A  3/16  inch  minimum  plate  thickness  is  recommended.  Lighter 
plates  may  lead  to  excessive  vibration  and  can  present  special  han¬ 
dling  problems  during  fabrication,  transportation  and  erection.  The 
designer  may  choose  1/4  inch  as  the  minimum  plate  thickness  if  less 
than  ideal  handling  conditions  are  expected. 

D.  TEMPERATURE  EFFECTS 

The  mechanical  properties  of  structural  steels  used  to  construct 

ductwork  are  affected  by  elevated  temperatures  due  to  hot  flue  gases. 

The  modulus  of  elasticity  decreases  linearly  from  29,000  ksi  at  70°F 

to  about  25,000  ksi  at  900°F.^  The  yield  stress  may  decrease  as  much 

as  30%  over  that  same  temperature  range,  depending  on  the  type  of 
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steel.  Poisson's  ratio,  however,  does  not  vary  over  this  temperature 
range . 

The  designer  must  modify  the  modulus  of  elasticity  and  yield 
stress  values  used  in  the  ductwork  design  when  such  design  includes 
normal  operating  temperatures  which  reduce  either  property  by  over  5%. 
When  the  design  operating  temperature  is  over  370°F  (the  temperature 
at  which  the  modulus  of  elasticity  is  reduced  by  5%),  the  value  of  the 
modulus  of  elasticity  used  in  design  calculations  should  be  modified 
downward  based  on  an  interpolation  of  the  values  given  above.  The 
value  of  the  design  operating  temperature  above  which  the  design  yield 
stress  must  be  modified  depends  on  the  specific  type  of  steel  chosen. 
For  ASTM  A36  steel,  the  design  yield  stress  should  be  reduced  for 
design  operating  temperatures  above  600°F  (the  temperature  at  which 

g 

the  yield  stress  is  reduced  by  5%). 
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Design  for  thermal  stresses  caused  by  temperature  differentials 
due  to  ash  buildup  (discussed  in  Chapter  I)  is  not  included  in  the 
design  procedure  contained  herein.  Such  thermal  stresses  are  best 
avoided  by  designing  the  ductwork  to  minimize  ash  fallout  and  by 
insuring  that  unavoidable  ash  buildups  are  removed  during  regularly 
scheduled  unit  outages.  If  these  precautions  fail  to  adequately 
control  thermal  stresses  in  the  ductwork,  corrective  measures  result¬ 
ing  from  a  separate  investigation  are  required. 

E.  ALLOWABLE  STRESSES 

Maximum  allowable  stresses  for  the  plate,  corner  angles,  and 

stiffeners  are  based  on  applicable  provisions  of  the  American 

Institute  of  Steel  Construction  Specification  for  the  Design, 
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Fabrication  and  Erection  of  Structural  Steel  for  Buildings  (hereafter 
referred  to  as  the  AISC  Specification).  Specific  applications  of  the 
AISC  Specification  allowable  stress  provisions  are  discussed  in 
Chapter  IV. 

F.  ALLOWABLE  DEFLECTIONS 

Maximum  allowable  plate  and  stiffener  deflections  may  be  governed 
by  lining  manufacturer  specifications  if  a  duct  lining  is  used.  In 
such  cases,  cracking  or  separating  of  the  lining  due  to  excessive 
curvature  of  the  duct  plate  is  to  be  avoided.  Allowable  deflection 
limitations  may  also  be  used  as  a  convenient  method  of  vibration 
control,  as  discussed  below.  Other  than  these  purposes,  allowable 
deflection  criteria  for  the  plate  and  stiffeners  are  generally  based 
on  past  successful  duct  designs  using  rather  arbitrary  deflection 
limitations.  In  the  absence  of  the  preemptive  considerations 
discussed  above,  ratios  of  span  to  allowable  deflection  of  100  and  240 
are  suggested  for  the  duct  plate  and  stiffeners,  respectively,  under 
normal  operating  conditions. 

G.  VIBRATION  CONSIDERATIONS 


Excessive  duct  vibrations  can  normally  be  attributed  to  one  of 
two  sources.  The  majority  of  duct  vibration  problems  occur  close  to 
the  FD  or  ID  fans  and  are  caused  by  fan-induced  pressure  pulsations. 


Rogers  and  Gilkey^  have  provided  an  overview  of  air/gas  flow 
phenomena  associated  with  the  fans  which,  in  some  cases,  can  lead  to 
pressure  pulsations  as  high  as  250  psf.  They  maintain  that  the 
preferred  solution  to  fan-related  excessive  vibrations  is  to  deal  with 
the  pulsation  problem  at  its  source,  rather  than  to  attempt  to  mask 
the  problem  by  duct  stiffening.  Source-oriented  solutions  may  involve 
installation  of  vanes  or  baffles  in  the  vicinity  of  the  fan,  or 
modification  of  the  fan  inlet  control,  depending  on  the  specific  cause 
of  the  fan-induced  pressure  pulsations. 

The  second  most  common  cause  of  duct  vibrations  is  pressure 
pulsations  due  to  turbulent  air  or  gas  flow  at  duct  corners.  The  best 
way  to  avoid  turbulence-induced  excessive  vibrations  is  to  lay  out  the 
ductwork  so  that  abrupt  changes  in  the  air  and  gas  flow  directions  are 
avoided.  Where  sharp  turns  are  unavoidable,  turning  vanes  may  be 
designed  and  installed  to  provide  continuous  laminar  flows  to  the 
maximum  extent  possible. 

Even  when  the  methods  of  avoiding  vibrations  mentioned  above  are 
conscientiously  applied  in  the  planning  and  design  process,  excessive 
duct  vibrations  may  still  occur.  Although  application  of  these 
measures  will  certainly  reduce  the  probability  of  vibration  problems, 
the  multiplicity  of  variables  and  complexity  of  vibration-causing 
phenomena  make  accurate  prediction  of  all  possible  vibration  problems 
highly  impractical,  if  not  impossible.  The  standard  approach  to 
anti-vibration  design  has  been  to  apply  the  measures  mentioned  above 
in  the  original  design,  and  then  to  go  back  in  after  plant  start-up 
and  take  corrective  action  if  excessive  vibrations  are  encountered. 
An  additional  precaution  may  be  ta-ken  in  order  to  reduce  the  possibil¬ 
ity  of  excessive  duct  vibrations.  It  is  recommended  that  the  allow¬ 
able  plate  deflection  under  normal  operating  conditions  be  limited  to 
one  half  the  plate  thickness  in  the  immediate  vicinity  of  the  fans. 
The  stiffeners  in  these  regions  should  be  designed  such  that  the  ratio 
of  span  to  deflection  is  not  less  than  720  under  normal  operating 
conditions . 
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H.  LONGITUDINAL  STIFFENERS 

In  the  vast  majority  of  ductwork  designs,  the  most  effective  use 
of  materials  is  achieved  by  orienting  stiffeners  in  a  direction  trans¬ 
verse  to  the  longitudinal  duct  axis.  However,  unusual  duct  geometry 
may  require  the  use  of  longitudinal  stiffeners  in  certain  instances. 

In  such  cases,  the  designer  may  refer  to  recommendations  by  Bleich,*1 

12  13 

the  Structural  Stability  Research  Council,  and  Salmon  and  Johnson. 
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IV.  DESIGN  PROCEDURE 


A.  OVERVIEW 

A  detailed  presentation  of  the  ductwork  structural  design  pro¬ 
cedure  is  given  in  Appendix  B.  Computer  programs  which  implement  this 
procedure  are  provided  in  Appendix  C.  This  chapter  provides  a 
description  of  the  general  approach  used  in  developing  the  detailed 
ductwork  structural  design  procedure. 

The  ductwork  design  procedure  is  based  on  the  Allowable  Stress 
Design  (ASD)  philosophy.  Factors  of  safety  are  applied  to  the  plate 
and  stiffener  yield  stresses  to  obtain  allowable  stresses,  and  the 
plate  and  stiffeners  are  sized  such  that  these  allowable  stresses  are 
not  exceeded  under  the  design  loadings.  The  modes  of  buckling  of 
portions  of  the  ductwork  which  experience  compressive  loads  are 
evaluated.  Buckling  is  avoided  by  applying  factors  of  safety  to  the 
predicted  buckling  stresses  and  sizing  the  compression  members  such 
that  these  allowable  stresses  are  not  exceeded  under  design  loadings. 
Members  are  also  sized  to  limit  deflections  to  acceptable  values. 

Specific  details  of  the  design  procedure  are  generated  from  three 
main  sources.  A  Project  Design  Manual  (hereafter  referred  to  as  the 
PDM)  is  prepared  individually  for  each  power  plant  project,  and 
provides  the  designer  with  specific  design  information  and  criteria 
which  may  be  unique  to  that  project.  Such  information  may  include  the 
basic  wind  speed,  ground  snow  load,  seismic  zone,  ambient  temperature 
extremes,  and  air/flue  gas  design  pressures  and  temperatures  in 
different  sections  of  the  ductwork.  Minimum  thickness  requirements, 
deflection  limitations,  design  ash  loads,  and  materials  specifications 
may  also  be  given.  The  American  National  Standard  Minimum  Design 
Loads  for  Buildings  and  Other  Structures,  ANSI  A58. 1-1982^  (here¬ 
after  referred  to  as  ANSI  A58.1),  provides  the  framework  for  the  load 
analysis  portion  of  the  design  procedure.  The  AISC  Specification  is 
the  source  of  most  of  the  provisions  pertaining  to  steel  design. 

The  design  procedure  begins  with  the  load  analysis.  Individual 
design  loads,  including  the  maintenance  live  load,  wind  load,  snow 
load,  seismic  load,  air/gas  pressure,  ash  load  and  dead  loads,  are 
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determined.  The  individual  loads  are  then  combined  and  analyzed  to 


determine  the  most  severe  combinations  of  loads  on  both  the  duct 


plates  and  the  transverse  stiffeners.  The  resulting  design  loads  are 
used  to  determine  the  required  stiffener  spacings  and  plate  thick¬ 
nesses.  The  individual  stiffeners  are  then  designed  as  either  pinned- 
end  members  or  as  members  of  a  rigid  frame.  A  check  of  the  adequacy 
of  the  duct  section  as  a  bending  member  follows.  The  section  bending 
capacity,  compression  flange  vertical  buckling,  web  shear  stress  and 
combined  shear  and  tension  stress  are  evaluated.  Finally,  the  bearing 
stiffeners  are  sized.  A  more  detailed  discussion  of  these  design 
steps  follows. 


B.  LOAD  ANALYSIS 


The  required  load  analysis  is  quite  detailed.  Determination  of 
the  adjusted  maintenance  live  load,  wind  load,  snow  load,  and  seismic 
load  is  based  on  ANSI  A58.1.  In  addition,  operating  pressures  or 
vacuums,  ash  live  loads,  and  dead  loads  must  be  considered. 


Adjusted  Maintenance  Live  Load.  Based  on  Section  4.10  of 


ANSI  A58.1,  Minimum  Roof  Live  Loads,  the  adjusted  maintenance  live 
load  may  be  applied  to  both  the  top  and  bottom  duct  panels.  The 
designer  may  account  for  loads  applied  directly  to  the  duct  panels  due 
to  activities  or  materials  associated  with  construction,  maintenance, 
or  repair  through  application  of  this  load.  The  nominal  maintenance 
live  load,  determined  from  the  PDM,  is  adjusted  based  on  both  the 
tributary  area  of  the  structural  member  and  the  slope  of  the  top  or 
bottom  duct  panel. 


2.  Wind  Loading.  An  analytical  procedure  based  on  Section  6  of 
ANSI  A58.1  is  used  to  determine  the  wind  loading  on  the  top,  side,  and 
bottom  duct  panels,  as  well  as  on  the  transverse  stiffeners.  A  veloc¬ 
ity  pressure  is  calculated  from  the  basic  wind  speed  at  the  site,  the 
importance  factor  for  the  ductwork,  the  height  of  the  duct  above  the 
ground,  and  the  exposure  characteristics  of  the  site.  A  gust  response 
factor  is  determined  based  on  height  above  the  ground  and  exposure 
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conditions,  and  pressure  coefficients  are  selected  based  on  the 
geometry  of  the  duct.  The  velocity  pressure,  gust  response  factor, 
and  pressure  coefficient  are  then  used  to  calculate  the  design  wind 
pressure  for  the  duct  panels  and  stiffeners. 


3.  Snow  Loading.  As  specified  in  ANSI  A58.1,  Section  7,  the 
design  snow  load  is  based  on  the  ground  snow  load  at  the  site,  the 
exposure  of  the  duct  to  wind,  the  importance  factor  for  the  ductwork, 
the  slope  of  the  top  duct  panel,  and  the  presence  or  absence  of  heated 
air  or  gas  in  the  duct. 


4.  Seismic  Loading.  Due  to  the  relatively  small  mass  of  the 
ductwork,  it  is  unlikely  that  seismic  loading  combinations  will  govern 
the  design.  The  one  possible  exception  is  seismic  forces  associated 
with  longitudinal  movement  of  the  duct,  which  must  be  considered  when 
designing  ductwork  supports.  Nevertheless,  an  equivalent  distributed 
transverse  seismic  load  is  calculated  based  on  the  provisions  of  ANSI 
A58.1,  Section  9,  and  compared  to  the  design  wind  pressure  to  deter¬ 
mine  which  loading  will  be  further  considered  in  design  of  the  duct 
plate  and  stiffeners. 


5.  Air/Gas  Pressures  and  Vacuums.  As  discussed  in  Chapter  I, 
air  and  gas  operating  pressures  may  differ  in  magnitude  from  operating 
vacuums  for  different  portions  of  the  ductwork.  In  addition,  the 
design  excursion  pressure  may  differ  from  the  design  excursion  vacuum 
for  the  same  portion  of  ductwork.  The  designer  obtains  specific 
values  for  air  or  gas  operating  and  excursion  pressures  and  vacuums 
from  the  PDM  and  incorporates  them  into  the  plate  or  stiffener  load 
determination  procedure  as  discussed  in  Paragraphs  C  and  D  following. 


6.  Ash  Live  Load.  The  design  ash  live  load  on  the  bottom  duct 
panel  is  specified  in  the  PDM.  The  designer  has  the  option  of  apply¬ 
ing  a  percentage  of  the  ash  live  load  on  the  bottom  panel  to  the  side 
panels  to  account  for  the  hydrostatic  type  loading  due  to  ash  buildup 
against  the  base  of  the  duct  side  panels. 
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7.  Dead  Loads.  The  weight  of  the  duct  plate  and  any  duct  lining 
material  must  be  considered  when  designing  the  duct  plate.  Insulation 
and  lagging  which  may  be  attached  to  the  exterior  of  the  duct  are 
designed  and  fastened  in  such  a  manner  that  the  entire  dead  load  of 
the  insulation  and  lagging  is  transferred  directly  to  the  stiffeners 
and  does  not  affect  the  plate  design. 

In  addition  to  the  plate  dead  load,  duct  lining  dead  load,  and 
insulation  and  lagging  dead  load,  the  weight  of  the  stiffener  itself 
must  be  considered  in  the  stiffener  design.  For  design  of  the 
vertical  stiffeners,  weights  of  the  duct  corner  angles  and  any 
internal  bracing  not  directly  adjacent  to  duct  supports  must  also  be 
considered,  due  to  the  presence  of  tension  field  action  in  the  duct 
webs . 

C.  PLATE  LOAD  DETERMINATION 

When  lagging  is  attached  to  the  duct  exterior,  the  lagging 
transfers  all  insulation  and  lagging  dead  loads,  snow  loads,  mainte¬ 
nance  live  loads  on  the  top  panel,  and  wind  loads  directly  to  the 
stiffeners,  so  that  the  duct  plate  itself  does  not  resist  these  loads. 
When  lagging  is  not  present,  however,  the  duct  plate  must  be  designed 
to  resist  these  loads  in  addition  to  the  plate  dead  load,  duct  lining 
dead  load,  operating  and  excursion  pressures  or  vacuums,  maintenance 
live  load  on  the  bottom  panel,  and  ash  live  load,  as  applicable. 

Three  different  loading  conditions  corresponding  to  three 
different  allowable  stresses  must  be  evaluated  for  each  of  the  four 
sides  of  the  duct.  First,  the  maximum  loading  associated  with  normal 
operating  conditions  and  no  wind  or  seismic  forces  is  determined. 
This  loading  is  used  in  conjunction  with  unmodified  allowable  stresses 
in  determining  an  initial  plate  thickness  and  stiffener  spacing  for 
each  duct  side.  Second,  the  maximum  loading  combination  including 
wind  or  seismic  forces  is  calculated.  The  allowable  stresses  are 
increased  by  one  third  when  this  loading  combination  is  applied,  as 
allowed  by  Section  1.5.6  of  the  AISC  Specification.  Finally,  the 
maximum  loading  including  excursion  pressures  or  vacuums  is  deter¬ 
mined.  When  this  loading  combination  is  applied,  the  maximum  stress 


in  the  plate  is  allowed  to  reach  the  plate  yield  stress.  The  second 
and  third  loading  combinations  and  associated  allowable  stresses  are 
used  to  check  the  initial  plate  thicknesses  and  stiffener  spacings 
selected  using  normal  operating  conditions,  no  wind  or  seismic  forces, 
and  unmodified  allowable  stresses. 

Because  (a)  three  different  loading  conditions  must  be  con¬ 
sidered,  (b)  insulation  and  lagging  may  or  may  not  be  present,  and  (c) 
the  specific  loads  to  be  applied  to  the  top,  sides  and  bottom  of  the 
duct  differ,  a  total  of  30  different  possible  controlling  transverse 
load  combinations  exist  for  the  four  duct  sides.  The  desirability  of 
computer  analysis  for  the  plate  load  combinations  is  obvious. 

D.  STIFFENER  LOAD  DETERMINATION 

The  same  matrix  of  considerations  discussed  under  plate  load 
determination,  with  the  exception  of  the  lagging  variable,  exists  for 
stiffener  load  determination.  Stiffener  load  determination,  however, 
is  further  complicated  by  introduction  of  another  variable  involving 
the  stiffener  end  conditions.  The  designer  may  choose  to  design  the 
stiffeners  as  pinned-end  beams  and  beam-columns,  with  lengths  equal  to 
the  widths  and  heights  of  the  duct  sides  stiffened.  In  this  case,  the 
stiffener  connections  at  the  duct  corners  are  designed  to  be 
nonmoment-resisting,  or  pinned,  and  internal  bracing  is  generally 
required  to  maintain  the  shape  of  the  ductwork  during  erection  and 
under  load.  The  alternate  approach  is  to  design  the  stiffeners  as  a 
rigid  frame  encircling  the  duct.  This  latter  option  requires  that  the 
stiffener  corner  connections  be  moment-resisting,  or  rigid. 

1.  Pinned-End .  Stiffener  load  determination  when  stiffeners  are 
designed  as  pinned-end  beams  and  beam-columns  is  very  similar  to  the 
plate  load  determination  procedure  described  above.  The  weight  of  the 
stiffener  is  an  additional  consideration,  but  the  number  of  possible 
load  combinations  is  reduced  because  all  plate  loads  and  lagging 
loads,  if  present,  are  transferred  to  the  stiffeners.  Thus,  the 
presence  or  absence  of  lagging  becomes  inconsequential  with  respect  to 
the  number  of  load  combinations  which  must  be  examined.  A  total  of  20 


possible  controlling  transverse  load  combinations  for  the  four  sides 
must  be  evaluated  for  stiffeners  designed  as  simple  beams. 

2.  Rigid  Frame.  The  number  of  possible  controlling  load  com¬ 
binations  increases  significantly  when  the  transverse  stiffeners  are 
designed  as  rigid  frames.  This  occurs  because  the  presence  of  moment- 
resisting  corner  connections  in  the  rigid  frame  allows  for  transfer  of 
moments  from  stiffener  to  stiffener.  Consequently,  loads  on  one  side 
of  a  duct  affect  the  stresses  in  all  four  stiffeners,  and  the  number 
of  possible  load  combinations  affecting  any  one  stiffener  increases. 
As  in  the  plate  load  determination,  three  different  loading  cases 
corresponding  to  three  different  allowable  stresses  must  be  evaluated, 
and  each  of  the  three  cases  contains  a  number  of  different  possible 
controlling  load  combinations.  The  total  number  of  transverse  load 
combinations  that  must  be  evaluated  for  stiffeners  designed  as  rigid 
frames  is  50. 

E.  PLATE  THICKNESS/STIFFENER  SPACING  DETERMINATION 

The  plate  thickness  and  stiffener  spacing  for  each  side  of  the 
duct  are  determined  assuming  that  each  of  the  four  sides  of  the  duct 
acts  independently  of  the  other  sides.  Each  duct  side  is  evaluated 
assuming  one-way  plate  bending  between  fixed  supports  (the  stiffeners) 
with  a  span  equal  to  the  stiffener  spacing. 

The  design  procedure  is  based  on  equations  presented  by 
Timoshenko  in  Theory  of  Plates  and  Shells.^  It  is  applicable  to 
both  small  and  large  plate  deflections,  where  deflections  greater  that 
one  half  the  plate  thickness  are  considered  large.  The  effects  of 
both  bending  and  membrane  stresses  are  considered  using  this  design 
method.  According  to  Timoshenko,^  the  equations  give  good  results 
for  panels  with  the  ratio  of  stiffener  spacing  to  duct  width  less  than 
2/3;  a  constraint  which  is  met  in  the  vast  majority  of  power  plant 
ductwork  configurations. 

The  maximum  plate  stress  and  deflection  are  calculated  for  each 
duct  side  over  a  range  of  stiffener  spacings  and  plate  thicknesses. 


The  designer  has  the  option  of  selecting  any  plate  thickness  and 
stiffener  combination  which  satisfies  the  allowable  stress  and  deflec¬ 
tion  criteria  for  each  of  the  three  loading  cases.  For  the  detailed 
procedures  presented  herein,  if  the  stiffeners  are  to  be  designed  as 
rigid  frames,  the  stiffener  spacing  selected  for  all  four  sides  of  the 
duct  must  be  identical,  but  the  plate  thickness  may  vary  from  side  to 
side.  If  the  stiffeners  are  to  be  designed  as  simple  beams,  stiffener 
spacings  for  all  sides  should  be  equal  to  or  even  multiples  of  the 
minimum  stiffener  spacing  selected.  The  plate  thickness  may  vary  from 
side  to  side. 

F.  STIFFENER  SIZING 

The  procedure  used  to  size  the  transverse  stiffeners  depends  upon 
the  type  of  stiffener  corner  connections  selected.  If  the  designer 
elects  to  use  nonmoment-resisting  connections,  such  as  shown  in 
Figure  2,  the  pinned-end  method  of  stiffener  sizing  is  used.  If, 
however,  moment-resisting  corner  connections,  such  as  shown  in  Fig¬ 
ure  3,  are  specified,  the  designer  must  use  the  rigid  frame  stiffener 
selection  method. 

In  either  case,  a  portion  of  the  duct  plate  adjacent  to  each 
stiffener  is  considered  to  act  in  conjunction  with  the  stiffener  in 
resisting  axial  forces  and  bending  moments.  The  stiffener  section 
properties  used  in  the  design  are  adjusted  to  reflect  this  added 
contribution  of  the  adjacent  effective  plate.  The  effective  plate 
width  is  specified  using  a  conservative  form  of  the  equation  suggested 
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by  von  Karman  and  modified  by  Sechler. 

Due  to  the  importance  of  standardization  in  the  design,  fabri¬ 
cation,  and  installation  of  insulation  and  lagging  on  the  duct 
exterior,  all  stiffeners  on  any  one  section  of  ductwork  are  designed 
to  have  the  same  nominal  depth.  This  requirement  applies  to  both 
pinned-end  and  rigid  frame  stiffeners.  If  no  insulation  or  lagging  is 
planned  for  the  duct  section  under  consideration,  stiffeners  on 
different  sides  of  the  duct  may  have  different  nominal  depths. 
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FIGURE  2.  EXAMPLES  OF  PINNED-END  STIFFENER 
CORNER  CONNECTIONS 
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FIGURE  3.  EXAMPLES  OF  RIGID  FRAME  STIFFENER 
CORNER  CONNECTIONS 


The  stiffener  design  procedures  used  in  both  the  pinned-end  and 
rigid  frame  methods  are  based  on  applicable  provisions  in  the  AISC 
Specification. 

1.  Pinned-End  Method.  Since  moments  are  not  transferred  across 
stiffener  connections  at  the  duct  corners,  each  stiffener  is  designed 
independently.  The  top  and  bottom  stiffeners  are  designed  as  pinned- 
end  beam-columns  under  combined  loading  from  transverse  forces  and 
axial  forces  due  to  internal  pressures  or  vacuums.  The  side  stiff¬ 
eners  are  designed  as  pinned-end  beam-columns  under  combined  loading 
from  transverse  forces  and  axial  forces  due  to  tension  field  action 
and  internal  pressures  or  vacuums. 

2.  Rigid  Frame  Method.  The  transverse  stiffeners  on  the  four 
sides  of  the  duct  are  joined  by  moment-resisting,  or  rigid,  connec¬ 
tions  at  the  duct  corners.  They  are  analyzed  as  a  rigid  frame  using  a 
slope-deflection  approach  with  matrix  algebra.  As  with  pinned-end 
stiffeners,  the  top  and  bottom  stiffeners  are  subjected  to  transverse 
loads  and  axial  loads  due  to  internal  pressures  or  vacuums,  while  the 
side  stiffeners  must  be  designed  for  these  loads  in  addition  to  the 
axial  forces  due  to  tension  field  action. 

C .  DUCT  SECTION  CHECKS 

After  the  plate  thicknesses,  stiffener  spacings,  and  stiffener 
sizes  have  been  determined,  the  duct  section  as  a  whole  is  analyzed  to 
determine  its  suitability  as  a  pending  member  spanning  the  distance 
between  duct  supports.  The  analysis  is  based  on  Section  1.10  of  the 
AISC  Specification,  Plate  Girders  and  Rolled  Beams. 

1.  Bending  Capacity.  Due  to  possible  buckling  associated  with 
the  inherently  large  width-to-thickness  ratios  of  the  duct  webs  (side 
panels)  and  duct  compression  flange  (top  panel),  the  entire  duct  cross 
section  cannot  be  considered  effective  in  resisting  the  bending 
moment.  A  reduced  effective  compression  flange  width  and  associated 
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flange  compressive  stress  are  calculated  using  an  iterative  procedure 
based  on  Equation  C3-1  in  Appendix  C,  Slender  Compression  Elements,  of 
the  AISC  Specification. 

The  reduced  allowable  compression  flange  stress  due  to  the  bend¬ 
ing  of  the  duct  is  then  calculated  from  AISC  Section  1.10.6,  Reduction 
in  Flange  Stress,  and  compared  to  the  computed  stress  based  on  the 
reduced  effective  compression  flange  width.  If  the  computed  effective 
compression  flange  stress  is  greater  than  the  reduced  allowable 
compression  flange  bending  stress,  the  duct  side  and/or  top  plate 
thicknesses  are  increased,  larger  corner  angles  are  selected,  or  the 
duct  dimensions  are  modified  to  provide  an  increased  effective  section 
modulus . 

2.  Compression  Flange  Vertical  Buckling.  The  majority  of  duct 

sections  will  not  satisfy  the  web  width-to-thickness  limitations  of 

AISC  Section  1.10.2.  These  AISC  limitations  are  intended  to  prevent 

vertical  buckling  of  the  compression  flange  into  the  web  before 

19 

attainment  of  yield  stress  in  the  flange  due  to  flexure.  They  are 

based  on  the  assumption  that  the  web  alone  provides  resistance  to  this 

20 

vertical  buckling.  If  the  requirements  of  AISC  Section  1.10.2  are 

not  satisfied,  the  computed  compressive  stress  in  the  duct  compression 

flange  based  on  the  reduced  effective  compression  flange  width  is 

compared  to  the  stress  above  which  vertical  buckling  of  the  compres- 

21 

sion  flange  is  predicted.  If  the  computed  compressive  stress 

exceeds  the  compression  flange  vertical  buckling  stress  the  duct  side 
plate  thicknesses  and/or  top  corner  angle  sizes  are  increased. 

3.  Web  Shear.  The  average  web  shear  stress  is  calculated  and 
compared  to  the  allowable  web  shear  stress  specified  in  AISC 
Section  1.10.5.2.  If  required,  the  side  (vertical)  stiffener  spacing 
is  decreased  or  the  web  (side  plate)  thickness  is  increased. 

A.  Combined  Shear  and  Tension  Stress.  The  combined  shear  and 
bending  tensile  stress  in  the  duct  web  is  checked  in  accordance  with 
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AISC  Section  1.10.7,  Combined  Shear  and  Tension  Stress.  If  required, 
the  web  thickness  is  increased. 

H.  BEARING  STIFFENER  DESIGN 

Stiffeners  are  designed  as  rigid  frames  around  the  duct  perimeter 
at  duct  support  points.  The  pinned-end  stiffener  design  method  may  be 
used  if  internal  cross  bracing  is  provided,  but  a  detailed  design 
procedure  using  this  approach  is  not  included  herein.  Rather,  the 
rigid  frame  stiffener  design  approach  discussed  previously  is  used 
with  slight  modification.  The  effective  plate  width  adjacent  to  the 
bearing  stiffeners  is  reduced  to  12  times  the  plate  thickness  to  meet 
the  requirement  of  AISC  Section  1.10.5.1. 

The  above  procedure  does  not  consider  lateral  loads  resulting 
from  the  summation  of  transverse  wind  loads  over  the  entire  vertical 
projection  of  the  duct  section.  Such  lateral  loads  must  be  trans¬ 
ferred  to  the  duct  supports  by  (a)  rigid  frame  action  of  the  bearing 
stiffeners,  (b)  internal  cross  bracing  at  the  supports,  or  (c) 
external  bumper  supports.  The  designer  must  ensure  that  the  bearing 
stiffeners  do  not  become  overstressed  due  to  additional  loads  associ¬ 
ated  with  one  of  these  three  methods  of  transferring  the  lateral  wind 
loads  to  the  duct  supports. 
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V.  ALTERNATE  DESIGN  PROCEDURE 


A.  OVERVIEW 

The  American  Institute  of  Steel  Construction  is  preparing  a  new 

steel  design  specification  based  on  limit  states  of  strength  and 

serviceability  combined  with  first-order  probability  analysis.  The 

underlying  design  philosophy  is  called  Load  and  Resistance  Factor 

Design  (LRFD) ,  and  is  characterized  by  a  consistent  approach  to 

22 

strength  evaluation  and  structural  reliability. 

When  published,  the  LRFD  specification  may  provide  the  basis  for 
an  alternate  method  of  ductwork  design  to  the  Allowable  Stress  Design 
procedure  presented  in  Appendix  B.  It  could  prove  to  be  more  con¬ 
sistent  and  less  cumbersome  than  the  ASD  approach,  although  the  two 
methods  should  be  parallel  in  many  respects.  When  a  design  loading 

features  a  large  live  load  to  dead  load  ratio,  application  of  the  LRFD 

23 

approach  will  generally  result  in  a  slightly  heavier  final  design. 

Ductwork  design  loads  do  exhibit  such  a  ratio,  but  the  advantages  of 

consistency  and  relative  simplicity  associated  with  the  LRFD  approach 

may  overshadow  the  slight  increase  in  final  weight. 

The  following  comments  concerning  the  application  of  the  LRFD 

method  to  ductwork  design  are  based  on  the  unpublished  Proposed  Load 

and  Resistance  Factor  Design  Specification  for  Structural  Steel 
24 

Buildings ,  dated  January  1,  1985,  hereafter  referred  to  as  the  LRFD 
Specification. 

B.  LOAD  ANALYSIS 

Determination  of  the  adjusted  maintenance  live  load,  wind  load, 

snow  load  and  seismic  load  will  be  identical  to  the  ASD  approach, 

25 

since  both  methods  are  based  on  ANSI  A58.1.  The  air  and/or  gas 
pressures  and  vacuums,  ash  live  load,  and  dead  loads  will  obviously  be 
unchanged,  since  they  are  independent  of  the  method  of  design. 
However,  the  LRFD  approach  differs  from  the  ASD  approach  in  that  load 
factors  are  applied  to  these  nominal  loads  before  they  are  used  in  the 
design  equations. 


%•  ..  ■  -  y  -.‘  ..’  v 
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C.  PLATE  LOAD  DETERMINATION 

Section  A4.1,  Loads,  Load  Factors  and  Load  Combinations,  of  the 
proposed  LRFD  Specification  requires  that  six  different  factored  load 
combinations  be  investigated  in  order  to  determine  the  critical  load. 
This  additional  calculation  effort  in  the  LRFD  procedure  is  offset  by 
the  fact  that  evaluation  of  three  different  loading  conditions  corre¬ 
sponding  to  three  different  allowable  stresses,  as  required  in  the  ASD 
procedure,  is  not  required.  The  net  result  is  less  calculation  effort 
for  the  LRFD  approach. 

D.  STIFFENER  LOAD  DETERMINATION 

The  same  factors  mentioned  in  the  discussion  of  plate  load 
determination  apply  to  the  stiffener  load  determination.  Addi¬ 
tionally,  there  is  the  potential  for  a  very  significant  reduction  in 
calculation  effort  if  the  trial  stiffeners  meet  the  LRFD  Specification 
requirements  for  design  by  plastic  analysis.  If  plastic  analysis  is 
used,  there  is  no  need  to  differentiate  between  the  load  analysis 
required  for  pinned-end  stiffeners  and  that  required  for  rigid  frame 
stiffeners.  Rather  than  the  70  transverse  load  combinations 
associated  with  the  pinned-end  and  rigid  frame  stiffener  load  deter¬ 
minations  of  the  ASD  approach,  a  total  of  18  stiffener  transverse  load 
combinations  must  be  evaluated  if  plastic  analysis  is  used  in  the  LRFD 
method.  If  plastic  analysis  cannot  be  used  (stiffener  geometry  and 
section  properties  are  such  that  formation  of  plastic  hinges  in  the 
failure  mechanism  before  buckling  occurs  cannot  be  guaranteed),  the 
number  of  stiffener  load  combinations  which  must  be  evaluated 
increases  significantly  but  remains  less  than  that  required  in  the  ASD 
procedure . 

E.  PLATE  THICKNESS/STIFFENER  SPACING  DETERMINATION 

The  use  of  plastic  analysis  in  the  LRFD  procedure  will  lead  to 
reduced  computational  effort  compared  to  the  iterative  method  of 
calculating  stresses  and  deflections  based  on  elastic  large  deflection 
theory.  It  is  anticipated  that  the  LRFD  approach  will  result  in 
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greater  stiffener  spacings  and/or  thinner  plates  than  the  ASD 
procedure . 


F.  STIFFENER  SIZING 


As  discussed  above,  the  analysis  required  if  the  stiffeners  meet 
the  prerequisites  for  plastic  design  will  be  less  complex  than  the 
corresponding  elastic  analysis  required  in  the  ASD  method.  The  trans¬ 
verse  stiffeners  will  be  designed  using  a  beam-column  approach  similar 


to  that  of  the  ASD  method. 


DUCT  SECTION  CHECKS 


Since  the  proposed  LRFD  Specification  section  on  plate  girders 


with  tension  field  action  is  comparable  to  that  in  the  AISC  Specifi- 
26 

cation,  the  duct  section  checks  in  the  LRFD  procedure  will  be  quite 


similar  to  those  in  the  ASD  method. 


H.  BEARING  STIFFENER  DESIGN 


The  bearing  stiffener  design  considerations  using  the  ASD  method, 
as  discussed  in  Chapter  IV,  apply  to  bearing  stiffener  design  under 
the  LRFD  approach  also. 


RECOMMENDED  RESEARCH 


Development  of  a  detailed  ductwork  structural  design  procedure 
and  associated  computer  programs  based  on  the  Load  and  Resistance 
Factor  Design  approach,  as  discussed  in  this  chapter,  will  benefit  the 
power  industry  and  its  clients.  Application  of  the  LRFD  approach  to 
an  actual  design,  however,  is  not  recommended  until  the  American 
Institute  of  Steel  Construction  formally  adopts  and  publishes  the  Load 
and  Resistance  Factor  Design  specification. 
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VI.  RESULTS  AND  DISCUSSION 


A.  DESIGN  EXAMPLE 

In  order  to  evaluate  the  effectiveness  of  the  allowable  stress 
design  procedure  presented  in  Chapter  IV,  a  rectangular  section  of 
horizontal  ductwork  is  designed  using  that  procedure.  The  physical 
dimensions,  material  properties,  design  loads  and  design  criteria  used 
in  this  design  example  are  specifically  selected  to  match  those  of  a 
section  of  ductwork  designed  previously  by  others.  This  previous 
design  was  fabricated,  erected  and  put  into  operation  in  1983. 

The  design  parameters  for  both  the  previous  and  example  designs 
are  detailed  in  the  computer  output  contained  in  Appendix  D. 

B.  RESULTS 

Both  the  pinned-end  and  rigid  frame  transverse  stiffener  design 
approaches  are  used  in  the  design  example.  Table  II  summarizes  the 
previous  design,  while  Tables  III  and  IV  present  results  of  the 
pinned-end  and  rigid  frame  stiffener  designs,  respectively.  The 
stiffener  spacing  scheme  used  in  each  of  the  three  designs  is  shown  in 
Figure  4. 

C.  DISCUSSION 

Comparison  of  Tables  II,  III  and  IV  reveals  that  both  the 
pinned-end  and  rigid  frame  designs  result  in  material  and  fabrication 
labor  savings  compared  to  the  previous  design.  No  attempt  is  made  to 
present  the  most  economical  design  possible,  in  terms  of  material  and 
labor  costs.  Rather,  the  two  example  designs  are  purposely  similar  to 
the  previous  design  in  order  to  simplify  comparisons.  Without  this 
restriction,  further  material  and  labor  savings  could  be  realized  in 
the  pinned-end  stiffener  design  by  using  differing  stiffener  spacings 
on  the  four  sides  of  the  duct,  allowing  deeper  stiffener  sections,  and 
by  using  differing  plate  thicknesses  on  the  four  sides  of  the  duct. 
The  rigid  frame  could  be  similarly  lightened  by  using  deeper  stiffener 
sections  and  allowing  plate  thicknesses  to  differ  on  the  four  sides  of 
the  duct. 


TABLE  II 


PREVIOUS  DESIGN 


Side  1 

Side  2 

Side  3 

Side  4 

Plate  Thickness  (in.)* 

.3125 

.3125 

.3125 

.3125 

Interior  Panel  Stiffener 

30 

30 

30 

30 

Spacing  (in.) 

End  Panel  Stiffener 

30 

30 

30 

30 

Spacing  (in.) 

Intermediate  Transverse 

WT6X11 

WT6X11 

WT6X11 

WT6X11 

Stiffeners 

Bearing  Stiffeners 

WT6X11 

WT6X11 

WT6X11 

WT6X11 

Corner  1 

Corner  2 

Corner  3 

Corner  4 

Corner  Angles 

L3X3X1/4 

L3X3X1/4 

L3X3X1/4 

L3X3X1/4 

Duct  Clear  Span 

Duct  Height 

Duct  Width 

Total  Weight  of 

Total  Stiffener 

Stiffeners 

to  Plate  Weld 

Length 

47.5  ft. 

14  ft. 

12  ft. 

11,400  lb 

693  LF 

(assuming  2"  welds  (3  6"  O.C.) 


K 


TABLE  III 


PINNED-END  STIFFENER  DESIGN 


m 

$ 


1 

1 


Side  1 

Side  2 

Side  3 

Side  4 

Plate  Thickness  (in.)* ** 

.3125 

.3125 

.3125 

.3125 

Interior  Panel  Stiffener 

60 

60 

60 

60 

Spacing  (in.) 

End  Panel  Stiffener 

30 

30 

30 

30 

Spacing  (in.) 

Intermediate  Transverse 

WT6X13 

WT6X17.5 

WT6X13 

WT6X17.5 

Stiffeners 

Bearing  Stiffeners 

WT6X7 

WT6X15 

WT6X13 

WT6X15 

Corner  1 

Corner  2 

Corner  3 

Corner  4 

Corner  Angles 

L3X3X1/4 

L3X3X1/4 

L3X3X1/4 

L3X3X1/4 

Duct  Clear  Span 

Duct  Height 

Duct  Width 

Total  Weight  of 

Stiffeners 

47.5  ft. 

14  ft. 

12  ft. 

10,944  lb’ 

Total  Stiffener 

to  Plate  Weld 

Length 

485  LF*** 

(assuming  2”  welds  @  6"  O.C.) 


•i|nU 

Ijpf 

il 


*Including  corrosion  allowance. 

**Rep resents  a  4%  weight  savings  compared  to  the  previous  design 
shown  in  Table  I I . 

‘’"’“’■Represents  a  30%  weld  length  savings  compared  to  the  previous 
design  shown  in  Table  II. 


TABLE  IV 


RIGID  FRAME  STIFFENER  DESIGN 


Side  1 

Side  2 

Side  3 

Plate  Thickness  (in.)* 

.3125 

.3125 

.3125 

Interior  Panel  Stiffener 

60 

60 

60 

Spacing  (in.) 

End  Panel  Stiffener 

30 

30 

30 

Spacing  (in. ) 

Intermediate  Transverse 

WT6X9.5 

WT6X17.5 

WT6X13 

Stiffeners 

Bearing  Stiffeners 

WT6X7 

WT6X15 

WT6X13 

Corner  1 

Corner  2 

Corner  3 

Corner  Angles 

L3X3X1/4 

L3X3X1/4 

L3X3X1/4 

Duct  Clear  Span 

47.5  ft. 

Duct  Height 

14  ft. 

Duct  Width 

12  ft. 

Total  Weight  of 

Stiffeners 

10,440  lb* 

Total  Stiffener  to  Plate  Weld  Length 
(assuming  2"  welds  @  6"  O.C.) 

485  LF*** 

^’'Including  corrosion  allowance. 

’'"'■Represents  an  8.4%  weight  savings  compared  to  the 
design  shown  in  Table  II. 

’'""“"Represents  a  30%  weld  length  savings  compared  to  the 
design  shown  in  Table  II. 


Side  4 
.3125 
60 

30 

WT6X17.5 

WT6X15 

Corner  4 
L3X3X1/4 


previous 

previous 


FIGURE  STIFFENER  SPACING  SCHEMES 


The  bearing  stiffeners  in  both  example  designs  are  lighter  than 
the  corresponding  intermediate  transverse  stiffeners.  This  apparent 
anomaly  is  explained  by  the  fact  that  the  bearing  stiffeners  are 
designed  using  end  panel  stiffener  spacings,  while  the  intermediate 
stiffeners  are  designed  using  interior  panel  stiffener  spacings.  In 
these  examples,  the  latter  is  twice  the  former.  Since  both  the  trans¬ 
verse  and  axial  design  loads  on  the  stiffeners  increase  with 
increasing  stiffener  spacing,  the  lighter  bearing  stiffeners  are  to  be 
expected.  In  practice,  however,  the  designer  would  probably  specify 
bearing  stiffeners  of  the  same  size  as  the  heavier  intermediate  stiff¬ 
eners,  due  to  both  practical  fabrication  considerations  and  client 
perceptions . 
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VII.  CONCLUSIONS 

This  study  is  provided  to  help  fill  a  void  which  currently  exists 
in  the  publicly  available  literature.  The  design  method  presented 
herein  provides  a  consistent  and  comprehensive  approach  to  the 
structural  design  of  coal-fueled  power  plant  ductwork.  When  compared 
to  a  previous  design,  the  ductwork  section  designed  using  this 
procedure  requires  both  less  material  and  less  labor  during  fabri¬ 
cation.  Similar  economics  are  expected  with  future  designs  using  this 
method,  since  the  computerization  contained  herein  enables  design 
refinements  which  are  impractical  in  hand-calculated  designs. 

Application  of  this  design  method  and  the  accompanying  computer 
programs  to  future  ductwork  designs  will  save  the  design  firm  signifi¬ 
cant  amounts  of  design  and  review  time.  The  presence  of  a  comprehen¬ 
sive,  standardized  design  procedure  will  reduce  the  level  of  uncer¬ 
tainty  associated  with  ductwork  design  and  increase  the  speed  with 
which  engineers  previously  unfamiliar  with  this  specialty  may 
confidently  produce  finished  ductwork  designs.  The  engineer  and  his 
supervisor  will  thus  gain  valuable  time  and  peace  of  mind,  which  may 
be  profitably  reinvested  in  solving  other  of  the  many  complex  problems 
inherent  in  electrical  generating  plant  design. 
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APPENDIX  A 
SYMBOLS  AND  NOTATION 


Lm 


=  area  of  combined  stiffener  and  adjacent  effective  plate 
(in.2) 

2 

=  area  of  the  exterior  stiffener  flange  (in.  ) 

2 

=  cross-sectional  area  of  corner  angle  m  (in.  ) 

2 

=  cross-sectional  area  of  stiffener  (in.  ) 

=  tributary  area  for  calculation  of  maintenance  live  load 
(ft.2) 


C 

c 


C 

e 


C 


La 


C 

m 


C 

P 


C 

s 


C 


t 


c 

v 


D 

^*p,  allow 


s , allow 
E 

P 

E 

s 


=  bending  coefficient  dependent  upon  moment  gradient 
=  column  slenderness  ratio  separating  elastic  and  inelastic 
buckling 

=  exposure  factor  for  use  in  determination  of  snow  loads  for 
ducts 

=  percent  ash  live  load  coefficient  (for  determination  of  ash 
live  load  on  side  panels) 

=  coefficient  applied  to  bending  term  in  interaction  formula 
for  prismatic  members  and  dependent  upon  column  curvature 
caused  by  applied  moments 

=  external  pressure  coefficient  for  use  in  determination  of 
wind  loads  for  ducts 

=  slope  factor  for  use  in  determination  of  snow  loads  for 
ducts 

=  thermal  factor  for  use  in  determination  of  snow  loads  for 
ducts 

=  ratio  of  "critical"  web  stress,  according  to  linear  buck¬ 
ling  theory,  to  the  shear  yield  stress  of  web  material. 
=  flexural  rigidity  of  a  plate  (kip-in.) 

=  ratio  of  stiffener  spacing  (plate  span)  to  allowable  plate 
deflection 

=  ratio  of  stiffener  length  to  allowable  stiffener  deflection 
=  plate  modulus  of  elasticity  (ksi) 

=  stiffener  modulus  of  elasticity  (ksi) 


bp+ 

Fbp- 

Fbs 

Fbsc+ 

Fbsc- 

Fbst+ 

Fbst- 

F' 


ya 

F 

yp 

Fys 

Gh 

GC 


H 


=  allowable  axial  stiffener  compressive  stress  in  the  absence 
of  bending  moment  (ksi) 

=  reduced  allowable  bending  stress  in  duct  compression  flange 
(ksi) 

=  allowable  effective  plate  bending  stress  due  to  positive 
loads  or  moment  in  the  absence  of  axial  force  (ksi) 

=  allowable  effective  plate  bending  stress  due  to  negative 
loads  or  moment  in  the  absence  of  axial  force  (ksi) 

=  bending  stress  permitted  in  a  stiffener  in  the  absence  of 
axial  force  (ksi) 

=  allowable  stiffener  compressive  bending  stress  due  to  posi¬ 
tive  loads  or  moment  in  the  absence  of  axial  force  (ksi) 
=  allowable  stiffener  compressive  bending  stress  due  to  nega¬ 
tive  loads  or  moment  in  the  absence  of  axial  force  (ksi) 
=  allowable  stiffener  tensile  bending  stress  due  to  positive 
loads  or  moment  in  the  absence  of  axial  force  (ksi) 

=  allowable  stiffener  tensile  bending  stress  due  to  negative 
loads  or  moment  in  the  absence  of  axial  force  (ksi) 

=  Euler  stress  for  a  prismatic  member  divided  by  factor  of 
safety  (ksi) 

=  lateral  earthquake  force  (lb) 

=  allowable  shear  stress  (ksi) 

=  specified  minimum  yield  stress  of  steel  (ksi) 

=  corner  angle  yield  stress  (ksi) 

=  plate  yield  stress  (ksi) 

=  stiffener  yield  stress  (ksi) 

=  gust  response  factor  for  main  wind-force  resisting  system 
calculated  at  height  z  =  h 

=  product  of  external  pressure  coefficient  and  gust  response 
factor  for  use  in  determination  of  wind  loads  for  ducts 
=  vertical  dimension  of  rectangular  duct  cross  section;  from 
inside  surface  to  inside  surface  of  top  and  bottom  duct 
plates  (in.) 

=  importance  factor  for  use  in  loading  analysis 


be 


Lm 


reqd 


w 


K 

K, 


K 


=  moment  of  inertia  (in.  ) 


=  moment  of  inertia  of  duct  section  based  on  the  reduced 


effective  compression  flange  width  (in.  ) 


=  moment  of  inertia  of  combined  stiffener  and  adjacent  effec¬ 


tive  plate  (in.  ) 


=  moment  of  inertia  about  horizontal  axis  of  corner  angle  m 


(in.4) 


=  required  moment  of  inertia  (in.  ) 


=  moment  of  inertia  of  stiffener  (in.  ) 


=  moment  of  inertia  of  vertical  stiffener  with  reference  to 

4, 


an  axis  in  the  plane  of  the  adjacent  duct  plate  (in.  ) 
=  effective  length  factor  for  a  prismatic  member 
=  velocity  pressure  exposure  coefficient  evaluated  at 

height  h 

=  velocity  pressure  exposure  coefficient  evaluated  at 

height  z 

=  duct  span;  distance  between  duct  supports  (ft.) 


=  nominal  maintenance  live  load  from  Project  Design  Manual  or 
client  criteria  (psf) 

Lj  =  width  of  duct  top  panel;  length  of  top  stiffener  (ft.) 

1*2  =  height  of  leeward  duct  side  panel;  length  of  leeward  side 

stiffener  (ft.) 

=  width  of  duct  bottom  panel;  length  of  bottom  stiffener 
(ft.) 

=  height  of  windward  duct  side  panel;  length  of  windward  side 
stiffener  (ft.) 

=  length  of  horizontal  leg  of  corner  angle  m  (in.) 

=  length  of  horizontal  leg  of  top  corner  angle  (in.) 

=  length  of  vertical  leg  of  bottom  corner  angle  (in.) 

Lyt  =  length  of  vertical  leg  of  top  corner  angle  (in.) 

M^n  =  stiffener  n  fixed-end  moment  (kip-in.) 

M^  =  smaller  absolute  value  stiffener  end  moment  (kip-in.) 

M2  =  larger  absolute  value  stiffener  end  moment  (kip-in.) 


M.  . 
Ji 


M 

M 

M 

M 


max 

max+ 

max- 


x 


P 

vn 


P 

s 


R1’R2 

R. 


reqd,n 


W 


W 

P 

z 

b 


=  stiffener  end  moment  at  Joint  j,  where  Joint  j  is  the  joint 
adjacent  to  and  clockwise  from  Joint  i  (kip-in.) 

=  maximum  moment  in  a  stiffener  (kip-in.) 

=  maximum  positive  moment  in  a  stiffener  (kip-in.) 

=  maximum  negative  moment  in  a  stiffener  (kip-in.) 

=  stiffener  moment  at  distance  x  clockwise  from  joint  m 
(kip-in. ) 

=  axial  force  in  stiffener  n  (lb) 

=  axial  tensile  force  in  stiffener  n  due  to  internal  pressure 
(lb) 

=  axial  compressive  force  in  stiffener  n  due  to  internal 
vacuum  (lb) 

=  axial  compressive  force  in  vertical  stiffener  due  to  ten¬ 
sion  field  action  (lb) 

=  maintenance  live  load  reduction  factors 
=  ash  live  load  reduction  factor 
=  membrane  force  in  a  plate  (kip/in.) 

3 

=  stiffener  n  required  section  modulus  (in.  ) 

=  basic  wind  speed;  fastest-mile  wind  speed  at  33  feet 
(10  meters)  above  the  ground  of  terrain  exposure  Cate¬ 
gory  C;  see  ANSI  A58. 1-1982  Figure  1,  Table  7,  or  Sec¬ 
tions  6.5.2. 1,  6. 5. 2. 2,  or  6. 5. 2. 3  (mph) 

=  horizontal  dimension  of  rectangular  duct  cross  section; 
from  inside  surface  to  inside  surface  of  side  duct  plates 
(in. ) 

=  total  weight  of  internal  bracing  in  a  span  of  ductwork  (lb) 
=  weight  of  a  portion  of  the  duct,  for  use  in  determining 
seismic  forces  (lb) 

=  numerical  coefficient  dependent  upon  seismic  zone 
=  actual  width  of  stiffened  compression  element;  clear  dis¬ 
tance  between  compression  corner  angles  (in.) 


bg  =  reduced  effective  width  of  duct  compression  flange  (in.) 

t>en  =  effective  plate  width  to  be  used  in  conjunction  with  top, 

side,  bottom,  and  side  stiffeners,  respectively,  where 
n=  1,  2,  3,  4  (in.) 
b^  =  stiffener  flange  width  (in.) 

d  =  depth  of  stiffener  section  (in.) 

d'  =  depth  of  combined  stiffener  section  and  effective  plate 

(in. ) 

f  =  computed  compressive  stress  in  duct  compression  flange 

based  on  the  reduced  effective  compression  flange  width 
(ksi) 

f  =  computed  axial  stress  (ksi) 

f  =  maximum  axial  compressive  or  tensile  stress  in  rigid  frame 

stiffener  and  adjacent  effective  plate  on  side  n  (ksi) 
fan+  =  maximum  axial  compressive  stress  in  pinned-end  stiffener 

and  adjacent  effective  plate  on  side  n  (ksi) 
fan_  =  maximum  axial  stress  due  to  negative  loading  in  pinned-end 

stiffener  and  adjacent  effective  plate  on  side  n  (ksi) 
f^  =  computed  bending  stress  (ksi) 

f^p  =  maximum  bending  stress  in  effective  portion  of  plate 

adjacent  to  stiffener  (ksi) 


bp+ 


bp- 


bs 


bsc+ 


bsc- 


bst+ 


bst- 


=  maximum  effective  plate  tensile  bending  stress  under  posi¬ 
tive  loading  or  moment  (ksi) 

=  maximum  effective  plate  compressive  bending  stress  under 

negative  loading  or  moment  (ksi) 

=  maximum  bending  stress  in  stiffener  (ksi) 

=  maximum  stiffener  tensile  bending  stress  under  positive 

loading  or  moment  (ksi) 

=  maximum  stiffener  compressive  bending  stress  under  negative 
loading  or  moment  (ksi) 

=  maximum  stiffener  tensile  bending  stress  under  positive 

loading  or  moment  (ksi) 

=  maximum  stiffener  tensile  bending  stress  under  negative 


loading  or  moment  (ksi) 


f 

h 

k 

k 


1 


1 

sn 

m 


q 


qDl 

qD3 

qDl 

qDi 

qEp 

qh 

qLa 

qLad 

qLp 

qLrn 

qLrd 

qLv 

qS 


=  computed  shear  stress  (ksi) 

=  height  of  top  of  duct  above  the  ground  (ft.) 

=  factor  used  to  calculate  stiffener  moments  and  deflections 
under  simultaneous  axial  and  transverse  loading 
=  coefficient  relating  linear  buckling  strength  of  a  plate  to 
its  dimensions  and  condition  of  edge  support 
=  actual  unbraced  length  in  plane  of  bending  (in.) 

=  maximum  distance  between  stiffener  cross  sections  braced 
against  twist  or  lateral  displacement  of  the  exterior 
flange,  for  side  n  (in.) 

=  side  n  stiffener  length  (in.) 

=  miles  inland  from  hurricane  oceanline;  hurricane  oceanlines 
are  the  Atlantic  and  Gulf  of  Mexico  coastal  areas 
=  ground  snow  load  (psf) 

=  uniformly  distributed  load  (psf) 

=  uniformly  distributed  transverse  load  on  side  n  duct  panel 
(psf) 

=  dead  load  of  top  duct  plate  (psf) 

=  dead  load  of  bottom  duct  plate  (psf) 

=  duct  lining  dead  load  (psf) 

=  insulation  and  lagging  dead  load  (psf) 

=  uniformly  distributed  earthquake  load  to  be  applied  normal 
to  a  duct  panel  (psf) 

=  velocity  pressure  calculated  at  height  z  =  h  (psf) 

=  nominal  ash  live  load  (psf) 

=  adjusted  ash  live  load  (psf) 

=  operating  pressure  live  load  (psf) 

=  adjusted  maintenance  live  load  on  top  or  bottom  duct  panel, 
used  in  top  and  bottom  plate  and  stiffener  design  (psf) 
=  adjusted  maintenance  live  load  used  in  duct  section  design 
(psf) 

=  operating  vacuum  live  load  (psf) 

=  design  snow  load  (psf) 
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l  »  »  •  **»•«.  *. 

»  "  •  "*  «•  *  * 


*W1 


4W2 


4W3 


qW4 


qW,min 


4Xp 

qXv 

q„ 


w 

w 


n+ 


n- 


=  design  wind  pressure  on  top  panel  (psf) 

=  design  wind  pressure  on  leeward  side  panel  (psf) 

=  design  wind  pressure  on  bottom  panel  (psf) 

=  design  wind  pressure  on  windward  side  panel  (psf) 

=  minimum  design  wind  pressure,  from  Project  Design  Manual  or 
ANSI  A58. 1-1982,  Section  6.4.2. 1  (psf) 

=  excursion  pressure  (psf) 

=  excursion  vacuum  (psf) 

=  velocity  pressure  calculated  at  height  z  (psf) 

=  radius  of  gyration  (in.) 

=  radius  of  gyration  about  axis  of  concurrent  bending  (in.) 
=  effective  radius  of  gyration  of  combined  stiffener  and 
effective  plate  (in.) 

=  radius  of  gyration  of  a  section  comprising  the  exterior 
(not  attached  to  the  duct  plate)  flange  of  the  stiffener 
plus  1/3  of  the  web  area  on  the  exterior  side  of  the  stif¬ 
fener  neutral  axis,  taken  about  an  axis  in  the  plane  of  the 
web  (in.) 

=  stiffener  spacing  (in.) 

=  side  n  stiffener  spacing  (in.) 

=  plate  thickness  (in.) 

=  plate  thickness  of  duct  panel  which  is  in  compression  due 
to  gravity  loads  on  the  duct  section  (in.) 

=  stiffener  flange  thickness  (in.) 

=  plate  thicknesses  of  top,  side,  bottom,  and  side  panels, 
respectively,  where  n  =  1,  2,  3,  4  (in.) 

=  uniformly  distributed  transverse  load  (plf) 

=  uniformly  distributed  transverse  load  on  rigid  frame  stif¬ 
fener  n  (plf) 

=  positive  uniformly  distributed  transverse  load  on  pinned- 
end  stiffener  n  (plf) 

=  negative  uniformly  distributed  transverse  load  on  pinned- 
end  stiffener  n  (plf) 


1 

am 


Es 


g 


sn 


Lm 


P 

p , allow 
p  ,max 
s , allow 
s ,  max 
sx 

'l 

'3 


weight  per  foot  of  top  left,  top  right,  bottom  right,  and 
bottom  left  corner  angles,  respectively,  where  m  =  1,  2,  3, 
4  (plf) 

uniformly  distributed  earthquake  load  to  be  applied  trans¬ 
versely  to  the  side  stiffeners  (plf) 

uniformly  distributed  load  on  duct  section  due  to  gravity 
loads  (plf) 

weight  per  foot  of  top,  side,  bottom,  and  side  stiffeners, 
respectively,  where  n  =  1,  2,  3,  4  (plf) 
distance  clockwise  from  Joint  m  (ft.) 

distance  from  extreme  exterior  fiber  to  centroidal  axis  of 
stiffener  (in.) 

distance  from  extreme  exterior  fiber  to  centroidal  axis  of 
combined  stiffener  and  effective  plate  (in.) 
distance  from  extreme  exterior  compression  fiber  to  the 
effective  neutral  axis  of  the  duct  section  (in.) 
vertical  distance  from  exterior  face  of  horizontal  leg  to 
centroid  of  corner  angle  m  (in.) 

mean  height  of  duct  above  the  ground;  height  of  center  line 
of  duct  above  the  ground  (ft.) 
unit  weight  of  duct  plate  (pcf) 
deflection  (in.) 

allowable  plate  deflection  (in.) 
maximum  plate  deflection  (in.) 
allowable  stiffener  deflection  (in.) 
maximum  stiffener  deflection  (in.) 

stiffener  deflection  at  distance  x  clockwise  from  Joint  m 
(in. ) 

angle  between  top  plate  and  horizontal  (deg.) 
angle  between  bottom  plate  and  horizontal  (deg.) 

Poisson's  ratio 

constant  tensile  stress  (membrane  stress)  in  a  one-way 
plate  due  to  a  distributed  load  acting  normal  to  the  plate 
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=  maximum  bending  stress  in  a  one-way  plate  due  to  a  dis¬ 
tributed  load  acting  normal  to  the  plate  (ksi) 

=  maximum  duct  plate  stress  (ksi) 

=  joint  rotation  at  Joint  m  (rad.) 
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ALLOWABLE  STRESS  DESIGN  PROCEDURE 
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1.  OVERVIEW 

This  appendix  presents  a  detailed  ductwork  design  procedure  based 
on  allowable  stress  design  principles.  The  design  procedure  contained 
herein  is  the  foundation  upon  which  the  computer  programs  contained  in 
Appendix  C  are  built. 

The  load  analysis  portion  of  the  design  procedure  is  based  on 

American  National  Standard  Minimum  Design  Loads  for  Buildings  and 

Other  Structures,  ANSI  A58 . 1-1982^ ,  hereafter  referred  to  as  ANSI 

A58.1.  The  steel  design  portion  of  the  design  procedure  is  based  on 

the  American  Institute  of  Steel  Construction  Specification  for  the 

28 

Design,  Fabrication  and  Erection  of  Structural  Steel  for  Buildings  , 
hereafter  referred  to  as  the  AISC  Specification. 

Numerical  subscripts  in  this  appendix  refer  to  specific  duct 
sides  or  specific  duct  corners  as  labeled  in  Figure  5.  Symbols  and 
notation  used  in  this  appendix  are  defined  in  Appendix  A. 


2.  LOAD  ANALYSIS 

Individual  loads  due  to  maintenance  activities,  wind,  snow  and 
earthquake  are  first  determined.  Other  loads,  such  as  operation 
vacuum  and  pressure,  excursion  vacuum  and  pressure,  ash  load,  duct 
lining  dead  load,  and  insulation  and  lagging  dead  load  are  obtained 
from  the  Project  Design  Manual,  hereafter  referred  to  as  the  PDM. 
These  loads  are  then  added  in  different  combinations  to  arrive  at  the 
design  loads  to  be  used  in  sizing  the  duct  plate,  selecting  the  stif¬ 
fener  spacing,  and  sizing  the  stiffeners. 


2.1  Maintenance  Live  Load.  Determination  of  the  adjusted  main¬ 
tenance  live  load,  ,  for  use  in  design  of  top  and  bottom  plates 
and  stiffeners,  is  based  on  ANSI  A58.1,  Section  4.10,  Minimum  Roof 
Live  Loads.  The  adjusted  maintenance  live  load  is  applied  to  both  the 
top  and  bottom  panels  of  the  duct. 


2.1.1  Required  Input. 

L  -  Duct  span;  distance  between  duct  supports  (ft.) 

Ln  -  Width  of  duct  top  or  bottom  plate  (ft.) 

-  Nominal  maintenance  live  load,  from  PDM  (psf) 
s  -  Estimated  stiffener  spacing  (in.) 

0n  -  Angle  between  top  or  bottom  plate  and  horizontal  (deg.) 


2.1.2  Computation.  From  ANSI  A58.1,  Equation  2, 


qT  =  L  R  R.  >  0.60L 
Urn  r  1  2  -  r 


where 


(psf) 


q^rn  =  adjusted  maintenance  live  load  on  top  or  bottom  duct  panel 

) 

2 

A^  =  tributary  area  (ft.  ) 

=  sL  / 12 
n 

If  A^  <  200,  then  reduction  factor  R^  =  1,  else, 
if  At  >  600,  then  Rj  =  0.60,  else 


R2  =  1.2  -  0.001At 


If  0n  <  18  ,  then  reduction  factor  R^  =  1 ,  else, 

if  0  >  45°,  then  R„  =  0.60,  else 

n  —  2 


R„  =  1.2  -  0.60  tan  0 
2  n 


2.2  Wind  Loading.  Wind  loading  on  the  ductwork  is  determined  in 
accordance  with  ANSI  A58.1,  Section  6,  Wind  Loads. 

2.2.1  Required  Input. 

h  -  height  of  top  of  duct  above  the  ground  (ft.) 

Ln  -  width  or  height  of  top,  leeward,  bottom  and  windward  duct 
panels,  respectively,  for  n  =  1  to  4  (ft.) 


feu 
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m  -  miles  inland  from  hurricane  oceanline.  Hurricane  oceanlines 
are  the  Atlantic  and  Gulf  of  Mexico  coastal  areas. 

q,,  -  minimum  design  wind  pressure,  from  PDM  or  ANSI  A58.1, 

Section  6.4.2. 1  (psf) 

s  -  estimated  stiffener  spacing  (in.) 

V  -  basic  wind  speed;  fastest-mile  wind  speed  at  33  feet  above 
the  ground  for  terrain  Exposure  C.  Determine  from  PDM  or  from  ANSI 
A58.1  Figure  1,  Table  7,  or  Sections  6.5.2. 1,  6. 5. 2. 2,  or  6. 5. 2. 3 

(mph) 

z  -  mean  height  of  duct  above  the  ground;  height  of  center  line 
of  duct  above  the  ground  (ft.) 

Exposure  Category  -  determined  according  to  ANSI  A58.1,  Sec¬ 
tion  6.5.3,  or  from  PDM.  Use  of  Categories  C  or  D  only  is  allowed. 

Will  the  ductwork  have  insulation  and  lagging?  -  If  so,  the  duct 
plates  do  not  resist  wind  or  snow  loads  directly,  and  the  top  panel 
does  not  resist  the  maintenance  live  load.  These  loads  are,  however, 
resisted  by  the  stiffeners. 

Is  the  ductwork  directly  ground  supported,  or  elevated?  -  If 
elevated,  apply  a  wind  load  to  the  bottom  panel  and  stiffeners,  if 
appropriate . 

2.2.2  Computation .  Although  the  design  wind  loads  differ  for 
the  windward  versus  the  leeward  duct  panels,  both  side  panels  are 
designed  to  resist  the  most  severe  loading  involving  either  the  wind¬ 
ward  or  leeward  design  wind  load.  The  specific  procedure  used  to 
calculate  the  design  wind  loads  depends  on  the  height  of  the  duct 
above  the  ground. 

2.2.2. 1  For  h  <  60  ft.  From  ANSI  A58.1,  Table  4,  with  the 
internal  pressure  coefficient  equal  to  zero  for  sealed  ducts, 


9wn  =  qJGC)  > 


where 


h  =  height  of  top  of  duct  above  the  ground  (ft.) 

=  design  wind  pressure  on  top,  leeward,  bottom,  or  windward 

duct  panel,  respectively,  for  n  =  1  to  4  (psf) 

GC  =  product  of  external  pressure  coefficient  and  gust  response 

factor,  based  on  ANSI  A58.1,  Figures  3a  and  3b,  as  calculated  in 

Sections  2.2.2. 1.1  through  2.2.2. 1.4  following 

qI7  =  minimum  design  wind  pressure  (psf) 

^W,min  6  r 

q^  =  velocity  pressure  calculated  from  ANSI  A58.1,  Equation  3,  at 
height  h  (psf) 

=  0.00256Kh(IV)2 

If  h  <  15,  then  =  0.80,  else 

Kh  =  0.369h2/7  (ANSI  A58.1,  Eq.  A3) 

V  =  basic  wind  speed  (mph) 

I  =  importance  factor 

=  l.ll  -  0.0004m  >  1.07  (ANSI  A58.1,  Table  5) 

m  =  miles  inland  from  hurricane  oceanline 

2.2.2. 1.1  Top  Panel.  (q^ ) 

If  0^  <  10°,  then,  from  Figure  3b  of  ANSI  A58.1, 

if  sL.,/12  <  10  ft.2,  then  GC  =  -1.4,  else 
1  P 

GCp  =  -1.4  +  0 . 21og(sL1/ 120)  <  -1.2 

If  10°  <  <  30°,  then, 

if  sL./12  <  10  ft.2,  then  GC  =  -1.3,  else 
1  P 

GCp  =  -1.3  +  0.21og(sL1/120)  <  -1.1 


If  30°  <  0j  <  45°,  then, 

For  windward  exposure: 


If  sL./12  <  10  ft.2,  then  GC  =  1.3,  else 
1  P 


GCp  =  1.3  -  0. 2^(51^/120)  >  1.1 


For  leeward  exposure: 

If  sLj/12  <  10  ft.2,  then  GC  =  -1.4,  else 


GC  =  -1.4  +  .2108(51^/120)  <  -1.2 


f 


2.2.2. 1.2  Leeward  Side  Panel.  (q^2) 

If  and  0^  £  10°,  then,  from  Figure  3a  of  ANSI  A58.1. 
if  sL2/4  <  10  ft.2,  then  GCp  =  -1.35,  else 


GCp  =  -1.35  +  .2121og(sL2/120)  <  -0.99 


If  or  0^  >  10  ,  then, 

if  sL„/12  <  10  ft.2,  then  GC  =  -1.5,  else 


GCp  =  -1.5  +  0.2351og(sL2/120)  <  -1.1 


2 . 2 . 2 . 1 . 3  Bottom  Panel .  ( q^ ) 

GCp  is  calculated  as  in  Section  2. 2. 2. 1.1,  substituting  for 
Lj,  and  0^  for  0^.  If  the  duct  section  is  directly  ground  supported, 

%3  =  °- 


2.2.2. 1.4  Windward  Side  Panel.  (q,,. ) 

-  ’W4 

If  0^  and  0^  <  10°,  then,  from  Figure  3a  of  ANSI  A58.1, 

if  sL, / 12  <  10  ft.2,  then  GC  =  1.35,  else 
4  D 


GC  =  1.35  -  0.2651og(sL4/120)  >  0.90 
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If  0  or  0-  >  10°,  then, 

1  J  ry 

if  sL4/12  >  10  ft.  ,  then  GCp  =  1.5,  else 

GCp  =  1.5  -  .2941og(sL4/120)  >  1.0 

2. 2. 2. 2  For  h  >  60  ft.  Calculation  of  the  design  wind  pressure 
is  based  on  ANSI  A58.1,  Table  4. 


2. 2. 2. 2.1  Top  Panel.  (q^) 


qn.  =  q,  (GC  )  >  q.. 

^W1  ^h  p  -  ^W,min 


where 


q,  =  0.00256K.  (IV)' 


For  Exposure  Category  C: 


Kh  =  . 369h 


2/7 


For  Exposure  Category  D: 


K.  =  .  696h 
n 


1/5 


(ANSI  A58.1,  Eq.  3) 


(ANSI  A58.1,  Eq.  A3) 


(ANSI  A58.1,  Eq.  A3) 


h  =  height  of  top  of  duct  above  ground  (ft.) 

I  =  1.11  -  .0004m  >1.07  (ANSI  A58.1,  Table  5) 

V  =  basic  wind  speed  (mph) 

If  sL./12  <  10  ft.2,  then  GC  =  -2.0,  else 
1  P 

GCp  =  -2.0  +  log(sL1/120)  <  -1.0  (ANSI  A58.1,  Fig.  4) 

2 . 2 . 2 . 2 . 2  Leeward  Side  Panel .  ( q^ ^ ) 

q, =  q,  (GC  )  >  q„  (ANSI  A58.1,  Table  4) 

^W2  ^h  p  -  ^W,min 


qh  =  0.00256Kh(IV) 


(ANSI  A58.1,  Eq.  3) 


For  Exposure  Category  C: 

Kh  =  .369h2/7  (ANSI  A58.1,  Eq.  A3) 

For  Exposure  Category  D: 

Kh  =  .696h1/5  (ANSI  A58.1,  Eq.  A3) 

h  =  height  of  top  of  duct  aboveground  (ft.) 

If  sL„/12  <  100  ft.2,  then  GC  =  -1.1,  else 
z  P 

GCp  =  -1.1  -  .4291og(sL2/1200)  >  -0.80  (ANSI  A58.1,  Fig.  4) 

2. 2. 2. 2. 3  Bottom  Panel.  (q^) 

The  design  wind  pressure  on  the  bottom  panel  is  calculated  as  in 
Section  2. 2. 2. 2.1,  substituting  for  L^. 

2. 2. 2. 2. 4  Windward  Side  Panel.  (q^) 

V,  =  >  Iw.min  (“S1  “S-1-  Tab1'  4> 


where 


q  =  0.00256K  (IV)2 
z  z 


(ANSI  A58.1,  Eq.  3) 


For  Exposure  Category  C: 


*  » 
s. 
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For  Exposure  Category  D: 

Kz  =  0.696z1/5  (ANSI  A58.1,  Eq.  A3) 

z  =  mean  height  of  duct  above  the  ground  (ft.) 

If  sL4/12  <  10  ft.2,  then  GCp  =  1.1,  else 
GCp  =  1.1  -  .2061og(sL4/120)  >  0.75 

2.3  Snow  Loading.  Snow  loading  on  the  ductwork  is  determined  in 
accordance  with  ANSI  A58.1,  Section  7,  Snow  Loads. 

2.3.1  Required  Input. 

Pg  -  ground  snow  load,  determined  from  the  PDM,  or  from  Fig¬ 
ures  5,  6  or  7,  Table  17,  or  Section  A7.2  of  ANSI  A58.1  (psf) 

-  angle  between  top  of  duct  and  horizontal 

Is  the  power  plant  in  Alaska? 

Siting  Category,  from  ANSI  A58.1,  Table  18 

Is  the  duct  section  for  heated  air  or  flue  gas,  or  for  ambient 
temperature  air? 

2.3.2  Computation .  The  following  procedure  does  not  account  for 
special  situations  in  which  extra-heavy  drifting  due  to  wind  shadow 
from  higher  portions  of  the  same  structure  or  adjacent  structures,  or 
sliding  of  snow  from  the  same,  may  occur.  In  such  cases,  the  designer 
must  increase  the  design  snow  load  as  appropriate. 

2.3.2. 1  Horizontal  Top  Duct  Panel.  (0^  <  5°) 

For  contiguous  United  States: 


qc  =  1 . 0 1C  C  p 
S  e  t*g 


(ANSI  A58 .  1 ,  Eq.  4A) 
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For  Alaska: 

qs  =  0.86CeCtpg 


(ANSI  A58.1,  Eq.  4B) 


design  snow  load  (psf) 
ground  snow  load  (psf) 

exposure  factor,  determined  from  ANSI  A58.1,  Table  18 
0.9  windy  area  with  little  shelter  available 
1.0  location  in  which  snow  removal  by  wind  cannot  be  relied 
on  to  reduce  snow  load  because  of  terrain  or  higher 
structures  nearby 

1.1  locations  that  do  not  experience  much  wind  and  where 
higher  structures  shelter  the  top  of  the  duct 

1.2  highly  sheltered  locations  that  experience  little  wind 
thermal  factor,  determined  from  ANSI  A58.1,  Table  19 
1.0  flue  gas  or  heated  air  ductwork 

1.2  ambient  temperature  air  ductwork 

2. 3. 2. 2  Sloped  Top  Duct  Panel.  (61  >  5°) 

The  sloped-surface  snow  load,  qg,  is  considered  to  act  normal  to 
the  sloped  surface.  This  differs  from  the  sloped-roof  snow  load,  pg, 
calculated  in  ANSI  A58.1,  Section  7.4,  which  is  considered  to  act  on 
the  horizontal  projection  of  the  sloped  roof. 

For  contiguous  United  States: 

qg  =  1.01CsCeCtpg  (ANSI  A58.1,  Eq.  4A) 

For  Alaska : 

qs  =  0.86CsCeCtpg  (ANSI  A58.1,  Eq.  4B) 


where 


Cg  =  slope  factor,  determined  from  ANSI  A58.1,  Section  A7.4. 
If  =  1.0,  then 

if  0,  <  30°,  then  C  =  cos  8,,  else, 

1  —  s  1 

if  0,  >  70°,  then  C  =  0.0,  else 

1  ’  s’ 

Cg  =  [1.0  -  (01  -  3O°)/4O°]cos0 
If  C  =  1.2,  then 

if  0,  <  45°,  then  C  =  cos0, ,  else, 

if  8,  >  70°,  then  C  =  0.0,  else 

1  ’  s’ 

Cg  =  [1.0  -  (01  -  45°)/25°]cos01 

2.4  Seismic  Loading.  Seismic  loading  on  the  ductwork  is  deter¬ 
mined  in  accordance  with  ANSI  A58.1,  Section  9,  Earthquake  Loads. 
Load  combinations  including  seismic  loads  will  rarely  govern  the 
design. 

2.4.1  Required  Input. 

L^  -  width  or  height  of  side  n  duct  panel  (ft.) 
q^  -  insulation  and  lagging  dead  load  (psf) 
q^  -  duct  lining  dead  load  (psf) 
s  -  stiffener  spacing  (in.) 
t  -  side  n  plate  thickness  (in.) 

Wsn  "  we^8ht  per  foot  of  stiffener  n  (plf) 

Yp  -  unit  weight  of  duct  plate  (pcf) 

Seismic  Zone  -  from  PDM  or  ANSI  A58.1,  Figures  13  or  14 

2.4.2  Computation.  A  seismic  design  load  is  calculated  both  for 
the  duct  plate  design  and  the  stiffener  design. 


2.4.2. 1  Plate  Load. 


%  =  <12V'(»Ln> 


where 


=  uniformly  distributed  earthquake  load  to  be  applied  normal 


to  the  duct  plate,  calculated  as  shown  below  (psf) 
Fp  =  lateral  earthqu; 
importance  factor  of  1.5 


F  =  lateral  earthquake  force  applied  normal  to  the  plate,  using 

and  horizontal  force  factor  of  0.3  (lb) 


F  =  0.45ZW 
P  P 

If  Seismic  Zone  =  4,  Z  -  1 

If  Seismic  Zone  =  3,  Z  -  3/4 

If  Seismic  Zone  =  2,  Z  =  3/8 

If  Seismic  Zone  =  1,  Z  =  3/16 

If  Seismic  Zone  =  0,  Z  =  1/8 

Wp  =  weight  of  plate  (lb) 

■  <y„'12  *  WsV12 

Combining  the  expressions  for  W^,  F^  and  q^  , 

qEp  =  -45Z(Vn/12  +  qDl} 

2. 4. 2. 2  Stiffener  Load. 


w 


Es 


VL 


n 


where 

w^s  =  uniformly  distributed  earthquake  load  to  be  applied  trans- 
versly  to  the  side  stiffeners  (p 1 f ) 

F  =  lateral  earthquake  force  applied  normal  to  the  stiffener 
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H 


F  =  0.452W 
P  P 

Z  is  as  calculated  in  Section  2.4.2. 1 

W  =  weight  of  plate,  stiffener,  insulation,  lagging,  and  duct 
lining 

=  (y  t  / 12  +  q-,.  +  qn.)sL  / 12  +  w  L 
Jp  n  MD1  ’Di  n  sn  n 

Combining  the  expressions  for  W  ,  F^  and  w^, 


"Es  =  0'45ZK'pV'2  +  “D1  +  >Ws/12  +  "sn1 


2.5  Plate  Load  Determination.  Three  different  loading  cases 
must  be  considered  when  designing  the  duct  plate.  This  is  because  the 
allowable  plate  stress  varies  depending  on  whether  wind,  seismic  or 
excursion  loads  are  included  in  the  design  loading  combination. 

The  loading  combinations  evaluated  in  Sections  2.5.1,  2.5.2  and 
2.5.3  are  based  on  the  assumption  that  when  lagging  is  present,  the 
lagging  transfers  all  insulation  and  lagging  dead  loads,  snow  loads, 
maintenance  live  loads  on  the  top  panel,  and  wind  loads  directly  to 
the  transverse  stiffeners,  so  that  the  duct  plate  does  not  directly 
resist  these  loads.  When  lagging  is  not  present,  however,  the  duct 
plate  must  be  designed  to  withstand  these  loads  in  addition  to  the 
plate  dead  load,  duct  lining  dead  load,  operating  or  excursion  vacuum 
or  pressure,  maintenance  live  load  on  the  bottom  panel,  and  ash  live 
load,  as  applicable. 


2.5.1 


Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 


Effects .  Maximum  plate  loads,  q^,  q£ ,  q^  anc*  q^>  are  determined  for 
use  in  conjunction  with  the  unmodified  allowable  plate  stress. 


2.5. 1.1  Required  Input. 

CT  -  percent  ash  live  load  coefficient,  for  determination  of  ash 
live  load  on  side  panels 


SV 


-  duct  lining  dead  load  (psf) 
q^n  -  dead  load  of  side  n  duct  plate  (psf) 

”  =  V«/n 

q^a  -  ash  live  load  (psf) 

q^p  -  operating  pressure,  from  PDM  (psf) 

q^r  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 
q^v  -  operating  vacuum,  from  PDM  (psf) 
qg  -  design  snow  load,  from  Section  2.3  (psf) 
t  -  side  n  plate  thickness  (in.) 

Yp  -  unit  weight  of  duct  plate  (pcf) 

2.5. 1.2  Computation.  Loads  acting  inward  toward  the  duct  center 
are  considered  positive.  Loads  acting  outward  away  from  the  duct 
center  are  considered  negative. 

2.5. 1.2.1  Top  Panel.  (q  ) 
q j  =  maximum  of  1 ,  2  or  3  below 

1.  Operating  vacuum 

a.  With  lagging 

ql  =  qDl  *  qDl  +  qLv 

b.  Without  lagging 

ql  =  qDl  +  qDl  *  qLv  +  V  +  qS 

2.  Operating  pressure 

With  or  without  lagging 

ql  =  qDl  +  qDl  '  qLp 

3.  Unit  down  (not  in  operation) 

a.  With  lagging 

ql  =  qDl  +  qDl 


b.  Without  lagging 
ql  =  qDl  +  qDl 


>Lr  +  qs 


2.5. 1.2.2  Side  Panels.  (q2>  q^) 
q2  =  q^  =  maximum  of  1  or  2  below 
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1.  Operating  vacuum 

With  or  without  lagging 

q2  =  q4  =  qLv 

2.  Operating  pressure 

With  or  without  lagging 

q2  =  q4  =  “qLp  "  CLaqLa 

2.5. 1.2.3  Bottom  Panel-  (q^) 

=  maximum  of  1,  2  or  3  below 

1.  Operating  vacuum 

With  or  without  lagging 

q3  =  “qD3  "  qDl  +  qLv 

2.  Operating  pressure 

With  or  without  lagging 

q3  =  “qD3  "  qDl  '  qLp  "  qLa 

3.  Unit  down 

With  or  without  lagging 

q3  =  qD3  "  qDl  '  qLr  “  qLa 

2.5.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 

Effects .  Maximum  plate  loads,  q^,  q^,  q^  and  q^,  on  the  top,  side  and 
bottom  duct  panels  are  determined.  The  allowable  plate  stress  is 
increased  by  1/3  when  these  loads  are  applied,  per  AISC  Section  1.5.6. 
According  to  ANSI  A58.1,  Section  2.3.1,  wind  and  seismic  effects  need 
not  be  assumed  to  act  simultaneously. 


q^a  -  ash  live  load  (psf) 

qr  -  operating  pressure,  from  PDM  (psf) 

q^r  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 

q^v  -  operating  vacuum,  from  PDM  (psf) 

qg  -  design  snow  load,  from  Section  2.3  (psf) 

q^n  -  design  wind  pressure  on  side  n  duct  panel,  from  Section  2.2 

(psf) 

t  -  side  n  plate  thickness  (in.) 

Yp  -  unit  weight  of  duct  plate  (pcf) 

2. 5. 2. 2  Computation.  Loads  acting  inward  toward  the  duct  center 
are  considered  positive.  Loads  acting  outward  away  from  the  duct 
center  are  considered  negative. 

2. 5. 2. 2.1  Top  Panel.  (q  ) 

Operating  pressure,  no  lagging 

ql  =  qDl  +  qDl  "  qLp  +  qWl 

(This  is  the  only  case  including  wind  that  might  control  design 
of  the  top  panel) 

2. 5. 2. 2. 2  Side  Panels.  (q£,  q^) 

q2  =  q^  =  Maximum  of  1  through  7  below 

1.  Operating  vacuum,  wind 

a.  With  lagging 

Case  1,  Section  2.5. 1.2.2,  controls 

b.  Without  lagging 


q2  q4  qLv  +  qW4 
2.  Operating  vacuum,  earthquake 

With  or  without  lagging 
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3.  Operating  pressure,  wind 

a.  With  lagging 

Case  2,  Section  2.5. 1.2.2,  controls 

b.  Without  lagging 

q2  =  q4  =  qLp  +  qW2  “  CLa  qLa 

4.  Operating  pressure,  earthquake 

Without  or  without  lagging 

q2  =  q4  =  qLp  '  qEp  "  CLa  qLa 

5.  Unit  down,  windward  side  wind 

a.  With  lagging 


b.  Without  lagging 
q2  =  q4  =  qW4 

6.  Unit  down,  leeward  side  wind 

a.  With  lagging 

q2  =  q4  =  "  CLa  qLa 

b.  Without  lagging 

q2  =  q4  =  %2  ’  CLa  qLa 

7.  Unit  down,  earthquake 

With  or  without  lagging 

q2  =  q4  =  "  qEp  "  CLa  qLa 
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3.  Unit  down,  wind 

a.  With  lagging 

Case  3,  section  2.5. 1.2.3,  controls 

b.  Without  lagging 

q3  =  '  qD3  '  qDl  '  qLr  '  qLa  +  qW3 

2.5.3  Excursion  Vacuum  or  Pressure  Conditions. 

Maximum  plate  loads,  q^,  q^>  q^  and  q^,  on  the  top,  side  and  bottom 
panels  are  determined.  The  allowable  plate  stress  may  reach  yield 
under  these  loads. 

2.5.3. 1  Required  Input. 

C^^  -  percent  ash  live  load  coefficient,  for  determination  of  ash 

live  load  on  side  panels 

q^  -  duct  lining  dead  load  (psf) 

q^n  -  dead  load  of  side  n  duct  plate  (psf) 

=  Y  t  / 12 
p  n 

q^a  -  ash  live  load  (psf) 

qT  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 
qs  -  design  snow  load,  from  Section  2.3  (psf) 
qv  -  excursion  pressure,  from  PDM  (psf) 
q^v  -  excursion  vacuum,  from  PDM  (psf) 
t  -  side  n  plate  thickness  (in.) 

Yp  -  unit  weight  of  duct  plate  (pcf) 

2. 5. 3. 2  Computation .  Loads  acting  inward  toward  the  duct  center 
are  considered  positive.  Loads  acting  outward  away  from  the  duct 
center  are  considered  negative. 

2. 5. 3. 2.1  Top  Panel.  (q ^ ) 
q^  =  Maximum  of  1  or  2  below 
1.  Excursion  vacuum 

a.  With  lagging 

ql  =  qDl  +  qDl  +  qXv 


V*.  .•»  .  • 


b.  Without  lagging 

*1  =  qDl  +  qDl  +  qLr  +  qS  +  qXv 
2.  Excursion  pressure 

With  or  without  lagging 
ql  =  qDl  +  qDl  '  qXp 

2. 5. 3. 2. 2  Side  Panels.  (q2>  q^) 
q^  =  q^  =  Maximum  of  1  or  2  below 

1.  Excursion  vacuum 

With  or  without  lagging 

q2  =  q4  =  qXv 

2.  Excursion  pressure 

With  or  without  lagging 

q2  =  q4  =  '  qXp  "  CLa  qLa 

2. 5. 3. 2. 3  Bottom  Panel.  (q^) 
q^  =  Maximum  of  1  or  2  below 

1.  Excursion  vacuum 

With  or  without  lagging 

q3  =  ’  qD3  "  qDl  +  qXv 

2.  Excursion  pressure 

With  or  without  lagging 

qX3  =  '  qD3  qDl  "  qLa  "  qXp 

2.6  Pinned-End  Stiffener  Load  Determination.  As  with  the  plate 
load  determination,  three  different  loading  cases  must  be  evaluated 
because  of  differences  in  the  allowable  stiffener  stresses  depending 
on  the  presence  or  absence  of  wind,  seismic  or  excursion  conditions. 

2.6.1  Transverse  Loads 

2.6. 1.1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Effects .  The  maximum  positive  uniformly  distributed  transverse  loads, 
w^+  through  w4+»  and  the  maximum  negative  uniformly  distributed 


transverse  loads,  w^_  through  w^  ,  on  the  top,  side  and  bottom  stiff¬ 
eners  are  determined.  These  loadings  are  used  in  conjunction  with  the 


unmodified  allowable  stiffener  stress. 


2.6. 1.1.1  Required  Input. 


C^a  -  percent  ash  live  load  coefficient,  for  determination  of  ash 
live  load  on  side  panels 

-  insulation  and  lagging  dead  load  (psf) 
q^  -  duct  lining  dead  load  (psf) 
q«  -  dead  load  of  side  n  duct  plate  (psf) 


=  y  t  / 1 2 
Jp  n 


q^a  -  ash  live  load  (psf) 

qT  -  operating  pressure,  from  PDM  (psf) 

q^r  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 

q^v  -  operating  vacuum,  from  PDM  (psf) 

qs  -  design  snow  load,  from  Section  2.3  (psf) 

s  -  stiffener  spacing  (in.) 

tn  -  side  n  plate  thickness  (in.) 

wsn  ~  we^8ht  per  foot  of  side  n  stiffener  (plf) 

Y  -  unit  weight  of  duct  plate  (pcf) 


2.6. 1.1.2  Computation.  Loads  acting  inward  toward  the  duct 
center  are  considered  positive.  Loads  acting  outward  away  from  the 
duct  center  are  considered  negative. 


2.6.1. 1.2.1  Top  Stiffener. 


1.  Operating  vacuum 


W1+  =  (qD1  +  qD1  +  qDi  +  qLv  +  qLr  +  qs}  fi  +  wsi 


2.  Operating  pressure 


ul-  =  (’dI  +  ’D1  +  V  '  V  T2  +  "si 


:v’<w.v . 


2.6.1. 1.2.2  Side  Stiffeners. 
1.  Operating  vacuum 


W2+  w4+  12 

2.  Operating  pressure 

W2-  =  w4-  =  (_qLp  ‘  CLa  qLa)  12 
2.6.1. 1.2.3  Bottom  Stiffener. 

1.  Operating  vacuum 

W3+  =  qD3  "  qDl  "  qDi  +  qLv)  12  ~  Ws3 

2.  w^_  =  maximum  of  a  or  b  below 

a.  Operating  pressure 

w3-  =  *■"  qD3  "  qDl  '  qDi  "  qLp  "  ^a"*  12  '  Ws3 

b.  Unit  down 

“3-  =  <•  qD3  ‘  qDl  •  qDi  -  qLr  ‘  <!La)  12  ‘  Us3 

2.6. 1.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 
Effects .  The  maximum  positive  uniformly  distributed  transverse  loads, 
w^+  through  w^+,  and  maximum  negative  uniformly  distributed  transverse 
loads,  w^_  through  w^  ,  on  the  top,  side  and  bottom  stiffeners  are 
determined.  The  allowable  stiffener  stress  is  increased  by  1/3  when 
these  loads  are  applied,  per  AISC  Section  1.5.6.  According  to  ANSI 
A58.1,  Section  2.3.1,  wind  and  seismic  effects  need  not  be  assumed  to 
act  simultaneously. 

2.6. 1.2.1  Required  Input. 

C^a  -  percent  ash  live  load  coefficient,  for  determination  of  ash 
live  load  on  side  panels 

-  insulation  and  lagging  dead  load  (psf) 
q^  -  duct  lining  dead  load  (psf) 
q^n  -  dead  load  of  side  n  duct  plate  (psf) 

=  Y  t  / 12 


»!» 


q^a  -  ash  live  load  (psf) 

q^r  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 
qg  -  design  snow  load,  from  Section  2.3  (psf) 

q^n  -  design  wind  pressure  on  side  n  duct  panel,  from  Section  2.2 

(psf) 

s  -  stiffener  spacing  (in.) 
t  -  side  n  plate  thickness  (in.) 

Wgs  -  uniformly  distributed  earthquake  load  to  be  applied  trans- 
versly  to  the  side  stiffeners,  from  Section  2. 4. 2. 2  (plf) 

Wsn  ”  we-'-8^t  Per  foot  of  side  n  stiffener  (plf) 

Yp  -  unit  weight  of  duct  plate  (pcf) 

2.6. 1.2.2  Computation.  Loads  acting  inward  toward  the  duct  center 
are  considered  positive.  Loads  acting  outward  away  from  the  duct 
center  are  considered  negative. 

2.6. 1.2.2. 1  Top  Stiffener. 

1.  Operating  pressure,  wind 

"l-  =  (<>D1  *  qDl  +  V  '  qLp  +  W  §2  +  ”sl 
(This  is  the  only  case  including  wind  or  seismic  forces  that 
might  control  design  of  the  top  stiffener) 


2.6. 1.2. 2. 2  Side  Stiffeners. 


1. 


w2+  =  w4+  =  maxfmum  of  a  or  b  below 


Operating  vacuum,  windward  side  wind 

s 


w2+  =  w4+  =  (q 


Lv  +  qW4^  12 


b.  Operating  vacuum,  earthquake 


W2+  ~  w4+  =  + 


qLvS 


+  wv 


2. 


=  w. 


12  Es 
=  maximum  of  a  or  b  below 


2-  4- 

a.  Operating  pressure,  leeward  side  wind 


“2.  =  *4.  =  (' 


qtp  +  qW2  ‘  CLa  qLa J 


12 
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b.  Operating  pressure,  earthquake 

V  •  "4-  =  %  ‘  CLa  ^La f  12  '  UEs 


2.6. 1.2. 2. 3  Bottom  Stiffener. 

1.  w^_  maximum  of  a  or  b  below 

a.  Operating  pressure,  wind 

W3-  =  qD3  “  qDl  “  qDi  '  qLp  "  qLa  +  qW3^  12 

b.  Unit  down  (maintenance  live  load),  wind 

W3-  =  qD3  "  qDl  '  qDi  ‘  qLr  "  qLa  +  ‘W  12 


2.6. 1.3  Excursion  Vacuum  or  Pressure  Conditions. 


The  maximum 


positive  uniformly  distributed  transverse  loads,  w^+  through  w^+,  and 
maximum  negative  uniformly  distributed  transverse  loads,  w^  through 
w^_,  on  the  top,  side  and  bottom  stiffeners  are  determined.  The 
allowable  stiffener  stress  is  increased  by  2/3,  up  to  a  maximum  equal 
to  the  yield  stress,  under  these  loads. 

2.6. 1.3.1  Required  Input. 

C^a  -  percent  ash  live  load  coefficient,  for  determination  of  ash 
live  load  on  side  panels 

q^  -  insulation  and  lagging  dead  load  (psf) 

qDl  "  <*uct  lining  dead  load  (psf) 

qpn  -  dead  load  of  side  n  duct  plate  (psf) 

=  y  t  / 12 

p  n 

q^a  -  ash  live  load  (psf) 

q^r  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 

q^  -  design  snow  load,  from  Section  2.3  (psf) 

q^p  -  excursion  pressure,  from  PDM  (psf) 

q^v  -  excursion  vacuum,  from  PDM  (psf) 

s  -  stiffener  spacing  (in.) 

t  -  side  n  plate  thickness  (in.) 


M 


If 


wgn  -  weight  per  foot  of  side  n  stiffener  (plf) 
y  -  unit  weight  of  duct  plate  (pcf) 


$1 

l»V<l 


2. 6. 1.3. 2  Computation.  Loads  acting  inward  toward  the  duct 
center  are  considered  positive.  Loads  acting  outward  away  from  the 
duct  center  are  considered  negative. 


2.6. 1.3.2. 1  Top  Stiffener. 


1.  Excursion  vacuum 


Wl+  =  (qDl  +  qDl  +  qDi  +  qLr  +  qS  +  qXv}  fl  +  Wsl 


2.  Excursion  pressure 


"l-  =  (qDl  *  qDl  +  qDi  '  V  T2  +  ”s 


2.6. 1.3. 2. 2  Side  Stiffeners. 
1.  Excursion  vacuum 


w2+  =  W4+ 


2.  Excursion  pressure 

w9-  =  WA-  =  (-  % 


-La  4La  12 


2.6. 1.3. 2. 3  Bottom  Stiffener. 
1.  Excursion  vacuum 


W3+  qD3  "  qDl 

2.  Excursion  pressure 

W3-  =  qD3  "  qDl 


qDi  +  qXv}  12  ’  Ws3 


qDi  “  qLa  “  qXp)  12  "  Ws3 


2.6.2  Axial  Loads.  Internal  pressures  or  vacuums  cause  axial 
forces  in  the  combined  stiffener  and  adjacent  effective  plate  on  the 
top,  sides,  and  bottom  of  the  duct.  Tension  field  action  in  the  duct 
side  panels  causes  additional  axial  forces  in  the  side  (vertical) 
stiffeners . 


mm 
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v, 

V. 


4 


t: 


ft 


2.6.2. 1  Axial  Force  Due  to  Internal  Pressure  or  Vacuum.  Axial 


compressive  forces  artf  considered  positive.  Axial  tensile  forces  are 
considered  negative. 


2.6.2. 1.1  Normal  Operating  Conditions. 
/ +  L  ' 


Pi 


%  S!  ~ T 


1  ft. 


12  in., 


qLp  S1 


L2  +  L4 ' 


48 


P2 


qLp  S2  \  48 

+  L, 


L1  +  L3 


Pp3  "  qLp  s3  \  48  ) 


P  =  -  ( L1  +  L3 

p4  qLp  s4  \  48  / 


L2  +  L4 i 

Pvl  “  +  qLv  S1  \  48  ) 


L1  +  L3 

Pv2  "  +  qLv  s2  ^  48  I 


Pv3  =  +  qr«  s 


L2  +  L4 


Lv  °3  \  48 

L,  +  L, 


Pv4  +  qLv  s4  l  48  I 


where 


P  =  axial  tensile  force  in  stiffener  n  due  to  normal  operating 
pn 

pressure  (lb) 


P  =  axial  compressive  force  in  stiffener  n  due  to  normal  oper- 
vn 


ating  vacuum  (lb) 


q  =  operating  pressure  live  load  (psf) 

bp 


=  operating  vacuum  live  load  (psf) 


s^  =  side  n  stiffener  spacing  (in.) 


L  =  length  of  side  n  stiffener  (ft.) 
n 


2.6.2. 1.2  Excursion  Conditions. 


P  L2  *  L4 

Ppl  qXp  S1  \  48  / 


I 


s 

4 


& 


Si 

i 

% 


I 

$ 


•a 


a 


A 


1 


qXp  S2  \  48 


L1  +  L3 


l2  +  La 


p3  "  qXp  S3  \  48 

fLl  +  S 

Pp4  "  qXp  S4  \  48 

P  +  N  +  ^ 

Pvl  -  +  qXv  S1  \  48 

/L1  +  S 

Pv2  +  qXv  s2  \  48 

(L2  +  L4 

Pv3  +  qXv  s3  \  48 


P„a  =  +  <1y„  s 


Xv  4  \  48 


L1  +  L3 


where 


P  =  axial  tensile  force  in  stiffener  n  due  to  excursion  pres- 
pn 


sure  (lb) 


Pvn  =  axial  compressive  force  in  stiffener  n  due  to  excursion 


vacuum  (lb) 


=  excursion  pressure  (psf) 
qY  =  excursion  vacuum  (psf) 


2. 6. 2. 2  Axial  Force  Due  to  Tension  Field  Action.  The  axial 

compressive  load  on  the  vertical  stiffeners  is  estimated  by  assuming 

that  the  tension  field  action  results  in  the  duct  webs  (side  panels) 

behaving  like  Pratt  trusses,  with  the  vertical  stiffeners  becoming  the 

29 

compression  struts  of  the  truss. 

The  maximum  axial  compressive  force  due  to  tension  field  action 
in  a  non-bearing  stiffener  occurs  in  the  vertical  stiffeners  adjacent 
to  the  two  supports.  The  value  of  the  axial  compressive  force  in  one 
of  these  two  stiffeners  is 


1 

~4 


g  (L  -  TP  +  WB 


82 


where 


w 

g 


12  (tlLl  +  t2L2  + 


+  L3  +  L4)  +  12 


+  [Larger  of  q 


Lrd 


t3L3  +  t4L4)  +  (qDi  *  +  l2 

'Vl  +  t  \±3  +  ws4L4~ 

_  s'  s2  S3  S4  _ 

°r  ’s1  ll  +  qLadL3  t  ”al  +  “a2  *  ua3 


qT  =  L  R  R  >  0.20  L 
HLrd  r  1  2  -  r 

If  LL1  <  100  ft.2,  then  =  1,  else 

if  LL^  >  500  ft.2,  then  =  0.2,  else 

R1  =  1.2  -  0.002  LLX 

If  <  18°,  then  R^  =  1 ,  else 

if  0j  >  45°,  then  R2  =  0.60,  else 


R2  =  1.2  -  0.6  tan  0^ 


The  above  calculation  of  Rj  is  a  modification  of  that  given  in 
ANSI  A58.1,  Section  4.10.1.  Since  maintenance  loads  on  top  of  the 
duct  will  be  applied  to  limited  areas,  the  design  uniformly  dis¬ 
tributed  maintenance  live  load  applied  to  the  large  tributary  area  of 
the  top  of  the  duct  is  significantly  reduced  from  that  applied  to  the 
much  smaller  stiffener  tributary  area  previously. 

qLad  =  qLaR3 

If  LL3  <  100  ft.2,  then  R3  =  1 ,  else 
if  LL3  >  600  ft,2,  then  R3  =  0.5,  else 

R3  =  1.1  -  0.001  ll3 


The  above  calculation  reduces  the  design  value  of  the  uniformly 
distributed  ash  live  load  for  the  large  tributary  area  associated  with 
axial  loads  in  vertical  stiffeners  near  the  duct  supports.  The 
designer  should  use  a  more  accurate  value  for  q^aj  if  he  can  determine 
such  from  modeling  investigations  or  other  sources. 


»♦] 
1*1 


In  the  above  equations: 

Pg  =  axial  compressive  force  in  vertical  stiffener  due  to  tension 
field  action  (lb) 

w^  =  uniform  distributed  load  on  duct  due  to  gravity  loads  (plf) 

L  =  duct  clear  span  (ft.) 

sn  =  side  n  stiffener  spacing  (in.) 

Wg  =  weight  of  internal  bracing  in  ductwork  span  (lb) 
y  =  unit  weight  of  duct  plate  (pcf) 
t  =  duct  plate  thickness  of  side  n  (in.) 

Ln  =  duct  width  or  height  of  side  n  (ft.) 

=  insulation  and  lagging  dead  load  (psf) 
q^  =  duct  lining  dead  load  (psf) 
w  =  weight  per  foot  of  side  n  stiffener  (plf) 
q^  =  design  snow  load  (psf) 
w  =  weight  per  foot  of  corner  angle  m  (plf) 

q^rcj  =  adjusted  maintenance  live  load  for  duct  section  design 

(psf) 

=  nominal  maintenance  live  load  (psf) 

Rj,R2  =  maintenance  live  load  reduction  factors 
qLad  =  adjusted  ash  live  load  (psf) 
q^a  =  nominal  ash  live  load  (psf) 

Rg  =  ash  live  load  reduction  factor 

2.7  Rigid  Frame  Stiffener  Load  Determination.  Three  different 
transverse  loading  cases  must  be  evaluated  because  of  differences  in 
the  allowable  stiffener  stresses  depending  on  the  presence  or  absence 
of  wind,  seismic  or  excursion  conditions.  Each  of  the  transverse 
loading  cases  is  accompanied  by  simultaneous  axial  stiffener  loading. 
There  are  four  possible  axial  load  combinations: 

Axial  Load  Combination  A:  Internal  Vacuum 

P  =  P  . 

1  vl 

P  =  P  +  P 

2  v2  s 

P~  =  P  - 

3  v3 

P,  =  P  .  +  P 

4  v4  s 


Axial  Load  Combination  B:  Internal  Pressure;  Duct  Section  Midspan 

P  =  P  . 

1  pi 

P  =  P 

2  p2 

P3  =  Pp3 
P4  =  Pp4 

Axial  Load  Combination  C:  Internal  Pressure;  Duct  Section  Supports 
P-  =  P  . 

1  pi 

P  =  P 

2  s 

P  =  P 

a  p3 

P,  =  P 
4  s 

Axial  Load  Combination  D:  Unit  Down 

P!  =  ° 

P2  =  Ps 
P3  =  0 

P4  =  Ps 


where 

Pn  =  axial  compressive  force  in  stiffener  n  (lb) 

P  =  axial  compressive  force  in  stiffener  n  due  to  internal 
vn  r 

vacuum,  as  calculated  in  Section  2.6.2. 1  (lb) 

P  =  axial  tensile  force  in  stiffener  n  due  to  internal  pres- 
pn 

sure,  as  calculated  in  Section  2.6.2. 1  (lb) 

Pg  =  axial  compressive  force  in  vertical  stiffener  due  to  tension 
field  action,  as  calculated  in  Section  2. 6. 2. 2  (lb) 


2.7.1 


Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 


Effects .  Different  combinations  of  the  uniformly  distributed  trans¬ 
verse  loads  Wj,  w^,  w^  and  w^,  and  the  axial  loads  P^ ,  ,  P^,  and  P^ 
are  evaluated  in  order  to  determine  the  required  stiffener  section  for 
each  side  of  the  duct  under  normal  operating  conditions,  excluding 
wind  and  seismic  forces.  These  load  combinations  are  used  in  conjunc¬ 
tion  with  the  unmodified  allowable  stiffener  stress. 


I 


STW 


2. 7. 1.1  Required  Input. 


C^a  -  percent  ash  live  load  coefficient,  for  determination  of  ash 
live  load  on  side  panels 

q^  -  insulation  and  lagging  dead  load  (psf) 

q^  -  duct  lining  dead  load  (psf) 

qn  -  dead  load  of  side  n  duct  plate  (psf) 


=  v  t  / 12 

Jp  n 


q^a  -  ash  live  load  (psf) 


qT  -  operating  pressure,  from  PDM  (psf) 
LP 


q^r  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 
q^v  -  operating  vacuum,  from  PDM  (psf) 


q^  -  design  snow  load,  from  Section  2.3  (psf) 


s  -  stiffener  spacing  (in.) 


t  -  side  n  plate  thickness  (in.) 
n  ^ 


-  weight  per  foot  of  side  n  stiffener  (plf) 


unit  weight  of  duct  plate  (pcf) 


2.7. 1.2  Computation.  Transverse  loads  acting  inward  toward  the 
duct  center  and  axial  compressive  loads  are  considered  positive. 
Transverse  loads  acting  outward  away  from  the  duct  center  and  axial 
tensile  loads  are  considered  negative.  The  following  14  transverse 


load  combinations  are  evaluated. 


Operating  vacuum,  ash,  maintenance  live  load,  snow  load 


W1  =  (qDl  +  qDl  +  qDi  +  qLv  +  qLr  +  qS)s/12  +  Wsl 


w?  =  w/-  =  (qLv  ’  CLaqLa)s/12 


W3  =  (-qD3  ’  qDl  '  qDi  +  qLv  "  qLa)s/12  '  Ws3 


(evaluate  with  Axial  Load  Combination  A) 
Operating  vacuum,  ash 


"l  =  (<lDl  +  qDl  +  qDi  +  qLv)  12  +  "si 


W9  =  WA  =  '  CT,  J 


Lv  La  HLa'  12 
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W3  =  ('qD3 


5D1  “  qDi 


+  qLv  "  qLa}  12  ~  ws3 


(evaluate  with  Axial  Load  Combination  A) 

Operating  vacuum,  maintenance  live  load,  snow  load 


"l  =  (qDl 


+  qD1  +  qn,*  +  qT„  +  qT.  +  qJ  ^  +  w 


jDi 


*Lv 


*Lr 


s 

‘s'  12 


si 


W2  =  W4 


qLvs 


12 


w3  =  (_qD3  ’  qDl 


qDi  qLvy  12 


.) 


s3 


(evaluate  with  Axial  Load  Combination  A) 
Operating  vacuum 


"l  =  (qDl  +  qDl  *  qDi  +  qLv>  12  +  wsl 


W2  “  W4  " 


*Lv 


12 


=  (-qD3  "  q 


’D1 


qDi  +  qLv)  12 


s3 


(evaluate  with  Axial  Load  Combination  A) 

Operating  pressure,  ash,  maintenance  live  load,  snow  load 

s 


W1  =  (qDl  +  qDl  +  qDi  '  qLp  +  qLr  +  qs}  12  +  Wsl 


w2  =  W4  ^‘qLp  "  CLa  qLa ^  12 


W3  ("qD3  "  qDl 


qDi  '  qLp  "  qLa')  12  "  Ws3 


(evaluate  with  Axial  Load  Combinations  B  and  C) 
Operating  pressure,  ash 


"l  =  <qDl  +  qDl  +  qDi  ‘  qLp>  12  +  “si 


'2  ”4  '  4Lp  “La  qLa'  12 


W9  =  WA  =  (-qr„  -  CT 


"3  =  (-qD3 


4D1 


qDi 


qLp  "  qLa^  12  ”  Ws3 


(evaluate  with  Axial  Load  Combinations  B  and  C) 
Operating  pressure,  maintenance  live  load,  snow  load 


"l  =  (qDl  +  qDl  +  qDi 


qLp  +  qLr  +  qS)  12  +  “si 
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m 


w2  w4  “ 


q,  s 

_Ii£ _ 


12 


W3  (“qD3  "  qDl  '  qDi  "  12  "  Ws3 


(evaluate  with  Axial  Load  Combinations  B  and  C) 
Operating  pressure 


=  (q 


D1  4D1 


qDi  "  qLp^  12  +  Wsl 


W2  W4  ~ 


qT  s 


12 


w-3  ^_qn-5  -  "  qn-i  “  q^)  i  o  -  Wc 


'3  v  HD3  4D1  4Di  4Lp'  12  "s3 

(evaluate  with  Axial  Load  Combinations  B  and  C) 

Unit  down,  ash,  maintenance  live  load  top  and  bottom, 
snow 


wi  =  (q.m  +  qi 


+  qn,.  +  qT. +  qs)  12  +  w 


D1  HD1  ^Di  4Lr 


si 


W2  W4 


CLa  qLa  s 


12 


W3  =  (_qD3  '  qDl  •  qDi  '  qLa  "  qLr}  12  '  Ws3 


10. 


4Di  HLa 

(evaluate  with  Axial  Load  Combination  D) 
Unit  down,  ash,  maintenance  live  load  bottom 


"i  =  (%i  *  «di  +  W  n  *  ”si 


cx  qT _  s 


w2  W4 


"La  Hla 


12 


=  (-qm  -  qm  -  qn,  -  qLa  -  qLr)  jj  ~  w< 


11. 


'3  v  4D3  HD1  HDi  ^La  HLr'  12  "s3 

(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  ash,  maintenance  live  load  top,  snow 


“l  =  (qDl  *  %  +  qDi  +  V  +  «S5  12  +  "si 


W„ 


W4  =  ' 


CT  qr  s 
La  ^La 


12 
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UNCLASSIFIED 
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ML 
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ft: 

m 


m 


12. 


13. 


14. 


W3  =  (“qD3  '  qDl  ‘  qDi  "  qLa^  12  "  Ws3 
(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  maintenance  live  load  top  and  bottom,  snow 

“l  *  <«D1  *  «D1  *  V  +  qLr  +  «S>  12  +  ”S1 
w2  =  w4  =  0 

W3  =  ^"qD3  "  qDl  “  qDi  ‘  qLp  12  "  Ws3 
(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  maintenance  live  load  bottom 

”l  =  <«D1  +  «D1  +  W  12  +  “si 
w2  =  w4  =  0 

W3  =  ("qD3  "  qDl  '  qDi  ‘  qLr^  12  '  Ws3 
(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  maintenance  live  load  top,  snow 

”l  =  («D1  +  «D1  +  qDi  +  qlr  *  V  h  +  ”sl 


w2  =  w4  =  0 
W3  =  (_qD3  '  q 


D1  '  qDi)  12  "  Ws3 


2.7.2 


(evaluate  with  Axial  Load  Combination  D) 


Normal  Operating  Conditions,  Including  Wind  or  Seismic 


Effects .  Different  combinations  of  the  uniformly  distributed  trans¬ 


verse  loads  w. 


w„ 


w_,  and  w.  and  the  axial  loads  P, ,  P_,  P„ ,  and  P. 
3  4  1  2  3  4 


’1’  2’ 

are  evaluated  in  order  to  determine  the  required  stiffener  section  for 
each  side  of  the  duct  under  normal  operating  conditions,  including 
wind  or  seismic  forces.  The  allowable  stiffener  stress  is  increased 
by  1/3  when  these  load  combinations  are  applied,  per  AISC  Sec¬ 
tion  1.5.6.  According  to  ANSI  A58.1,  Section  2.3.1,  wind  and  seismic 
effects  need  not  be  assumed  to  act  simultaneously. 
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£  * 

[ 


2.7.2. 1  Required  Input. 

C^a  -  percent  ash  live  load  coefficient,  for  determination  of  ash 
live  load  on  side  panels 

-  insulation  and  lagging  dead  load  (psf) 
q^  -  duct  lining  dead  load  (psf) 
qpn  -  dead  load  of  side  n  duct  plate  (psf) 

“  *  y„/i2 

q^a  -  ash  live  load  (psf) 

qT  -  operating  pressure,  from  PDM  (psf) 

q^r  -  adjusted  maintenance  live  load,  from  Section  2.1  (psf) 

q^v  -  operating  vacuum,  from  PDM  (psf) 

q^  -  design  snow  load,  from  Section  2.3  (psf) 

q^n  -  design  wind  pressure  on  side  n  duct  panel,  from  Section  2.2 

(psf) 

s  -  stiffener  spacing  (in.) 
t  -  side  n  plate  thickness  (in.) 

w_  -  uniformly  distributed  earthquake  load  to  be  applied  trans- 
versly  to  the  side  stiffeners,  from  Section  2. 4. 2. 2  (plf) 
wsn  -  weight  per  foot  of  side  n  stiffener  (plf) 

Yp  -  unit  weight  of  duct  plate  (pcf) 

2. 7. 2. 2  Computation .  Transverse  loads  acting  inward  toward  the 
duct  center  and  axial  compressive  loads  are  considered  positive. 
Transverse  loads  acting  outward  away  from  the  duct  center  and  axial 
tensile  loads  are  considered  negative.  The  following  28  transverse 
load  combinations  are  evaluated. 

1.  Operating  vacuum,  ash  maintenance  live  load,  snow,  wind 


W1  =  (qDl  +  qDl  +  qDi  +  qLv  +  qLr  +  qS  +  qWl} 


12  '  Wsl 


W2  (qLv  "  CLa  qLa  +  qW2)  12 

W3  =  (_qDl  '  qDl  '  qDi  +  qLv  "  qLa  +  12  '  Ws3 


m 


avX*.  '-S' 


W4  (qLv  "  CLa  qLa  +  ‘W  12 
(evaluate  with  Axial  Load  Combination  A) 

Operating  vacuum,  ash,  maintenance  live  load,  snow, 
earthquake 

“l  3  ^qDl  +  qDl  +  qDi  +  qlv  +  qLr  +  ’s'  12  +  “si 

“2  3  (qLv  '  CLa  qLa)  !l  '  wEs 

“3  =  ('qD3  '  qDl  -  qDi  +  qLv  '  qIa}  12  '  “s3 

“4  “  <qLv  '  CLa  qIa>  ?2  +  uEs 
(evaluate  with  Axial  Load  Combination  A) 

Operating  vacuum,  ash,  wind 

”l  3  (qDl  +  qDl  *  qDi  +  qLv  +  qWl>  fe  +  “si 

"2  3  <qlv  -  CLa  qLa  +  qW2>  fe 

“3  3  <_qD3  '  qDl  -  qDi  +  qLv  '  qLa  +  qW3>  H  '  "s3 

“4  3  <qLv  '  Cla  qLa  +  ^4*  l2 
(evaluate  with  Axial  Load  Combination  A) 

Operating  vacuum,  ash,  earthquake 

W1  3  (qDl  +  qDl  +  qDi  +  qLv)  h  +  Wsl 

W2  =  (qLv  "  CLa  qLa)  12  '  WEs 

W3  =  (“qD3  "  qDl  '  qDi  +  qLv  '  qLa)  12  “  Ws3 

W4  =  (qLv  '  CLa  qLa)  12  +  WEs 
(evaluate  with  Axial  Load  Combination  A) 

Operating  vacuum,  maintenance  live  load,  snow,  wind 

W1  3  (qDl  +  qDl  +  qDi  +  qLv  +  qLr  +  qS  +  qWl}  II  +  wsl 

W2  3  ^qLv  +  qW2^  12 


91 


W3  ("qD3  "  qDl  ‘  qDi  +  qLv  +  qW3)  12  "  Ws3 
W4  =  (qLv  +  qW4)  h 

(evaluate  with  Axial  Load  Combination  A) 

6.  Operating  vacuum,  maintenance  live  load,  snow,  earthquake 

W1  =  (qDl  +  qDl  +  qDi  +  qLv  +  qLr  +  qS}  ?2  +  Wsl 
_  qLvS 

W2  12  “  WEs 

W3  =  (_qD3  "  qDl  “  qDi  +  qLv^  12  "  Ws3 

_  qLvS  „ 

W4  “  12  WEs 

(evaluate  with  Axial  Load  Combination  A) 

7.  Operating  vacuum,  wind 


W1  =  (qDl  +  qDl  +  qDi  +  qLv  +  qWl}  12  +  Wsl 
W2  ~  (qLv  +  qW2)  12 

W3  =  (‘qD3  "  qDl  '  qDi  +  qLv  +  qW3)  12  ‘  Ws3 
W4  =  (qLv  +  qW4}  U 

(evaluate  with  Axial  Load  Combination  A) 

8.  Operating  vacuum,  earthquake 


w 

w 

w 

w 

( 


1  =  (qDl  +  qDl  +  qDi  +  qLv}  12  +  Wsl 

-  V! 

2  12  wEs 

3  =  ("qD3  ‘  qDl  "  qDi  +  qLv^  12  "  Ws3 

qLvs  4 

4  "  12  wEs 

evaluate  with  Axial  Load  Combination 


A) 
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9.  Operating  pressure,  ash,  maintenance  live  load,  snow, 


wind 

W1  = 

(qDl  + 

qDl  +  qDi  ' 

’  qLp 

+  qLr  +  qS  + 

qWl^  12  +  Wsl 

s 

to 

II 

('qLp  ‘ 

'  CT 

La 

qLa  + 

qW2> 

s 

12 

W3  " 

("qD3 

•  qDl 

qDi 

'  ’if 

.  "  qLa  +  qW3} 

s 

—  -  w 

12  s3 

€ 

II 

(‘qLp  ' 

'  CT 

La 

qLa  + 

qW4> 

s 

1 2 

(evaluate  with  Axial  Load  Combinations  B  and  C) 


10.  Operating  pressure,  ash,  maintenance  live  load,  snow, 
earthquake 


11. 


w. 


w„ 


(qDl  +  qDl  +  qDi  ‘  qLp  +  qLr  *  qSJ  II  +  Wsl 
(‘qLp  "  CLa  qLa)  12  "  wEs 


W3  ~  ('qD3  ‘  qDl  ”  qDi  "  qLp  '  qLa)  12  "  Ws3 

w4  =  (-qLp  "  CLa  qLa)  12  f  wEs 
(evaluate  with  Axial  Load  Combinations  B  and  C) 
Operating  pressure,  ash,  wind 


n 

s 

(qDl  + 

qDl  +  qDi 

'  qLp  +  qWl> 

L_  +  w 

12  si 

W2  = 

(-qLP  ' 

CLa  qLa  + 

qwz)  n 

W3  = 

('qD3 

qDl  '  qDi 

qLp  qLa 

+  qW3)  12  '  Ws3 

w4  = 

(-qLP  - 

C  j  qT  + 

La  ^La 

<1W4)  l2 

(evaluate  with  Axial  Load  Combinations  B  and  C) 


12.  Operating  pressure,  ash,  earthquake 


W1  = 

(qDl  + 

qDl 

+  qDi  "  qLP)  12  + 

w  . 
s  1 

W2  = 

('qLP 

CLa 

qLa)  12  ‘  wEs 

W3  = 

^'qD3 

•  qDl 

qDi  qLp  qLa 

t  s 

}  12  '  Ws3 
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i 

m 


p 


81 

m 


W4  “  ^_qLp  “  CLa  qLa^  12  +  WEs 

(evaluate  with  Axial  Load  Combinations  B  and  C) 

13.  Operating  pressure,  maintenance  live  load,  snow,  wind 

“l  =  (qDl  +  qDl  +  qDi  ‘  «Ip  +  qLr  *  qS  +  qWl>  II  *  "si 

“2  =  (-qLp  +  V>>  12 

“3  =  ^-qD3  qDl  ”  qDi  “  qLp  +  qW3)  12  ”  “s3 
”4  =  (-qLp  *  12 

(evaluate  with  Axial  Load  Combinations  B  and  C) 

14.  Operating  pressure,  maintenance  live  load,  snow, 
earthquake 

”l  =  (qDl  *  qDl  *  qDi  ‘  qLp  +  qLr  +  qS>  T*  +  "sl 
- 

W2  12  “  WEs 

W3  =  (_qD3  ‘  qDl  ”  qDi  ‘  qLp)  12  “  Ws3 
qLps 

W4  12  WEs 

(evaluate  with  Axial  Load  Combinations  B  and  C) 

15.  Operating  pressure,  wind 

“l  =  (qDl  +  qDl  +  qDi  ”  qLp  +  qWp  12  *  "sl 
"2  =  (-qLp  +  qW2>  T2 

"3  =  ^”qD3  ”  qDl  qDi  ”  qLp  +  qW3^  12  "  “s3 
"4  =  (‘qLp  +  qW4>  12 

(evaluate  with  Axial  Load  Combinations  B  and  C) 

16.  Operating  pressure,  earthquake 

*1  =  (qDl  *  qDl  +  qDi  '  V  T2  +  ”sl 


$ 


£ 


94 


.W 

.*  V 


m 


fig 

1 


qT  s 

2L£_  . 


12  Es 


W3  (_qD3  “  qDl  ‘  qDi  "  qLp)  12  "  Ws3 


qLpS  + 

W4  "  \2  WEs 


(evaluate  with  Axial  Load  Combinations  B  and  C) 

Unit  down,  ash,  maintenance  live  load  top  and  bottom, 
snow,  wind 


"l  =  <qDl  +  qDl  *  qDi  +  qLr  +  qS  +  W  fj  +  "si 


“2  =  (-CLa  qLa  *  qW2>  12 


^'qD3  ‘  qDl  '  qDi  ‘  qLa  ’  qtr  +  qW3')  12  "  ”s3 


“4  =  (‘CLa  qIa  *  qW4>  12 


(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  ash,  maintenance  live  load  top  and  bottom, 
snow,  earthquake 


“l  *  (qDl  +  qDl  +  qDi  *  qLr  +  qS>  T2  +  "si 


CLa  qla  5 


”2  =  - 


w3  =  <_qD3  '  qDl  "  qDi  ”  qLa  *  qLp  12  '  ”s3 


CLa  qLa  s  . 

W4  _  12  WEs 


(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  ash,  maintenance  live  load  bottom,  wind 


"l  =  (qDl  +  qDl  *  qDi  +  qWl>  fi  +  ”sl 


”2  =  (’CLa  qLa  +  qW2>  12 


ui  ^-qD3  '  qDl  "  qDi  '  qLa  '  qLr  *  qW3^  12  "  "s3 
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20. 


“<  =  (-Cta  ’La  +  W  12 

(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  ash,  maintenance  live  load  bottom,  earthquake 

W1  =  (qDl  +  qDl  +  qDi>  12  +  Wsl 


w2  =  - 


CLa  qLa  S 


12 


-  w 


Es 


~  (-qD3  "  qDl  ‘  qDi  "  qLa  "  qLr)  12  '  Ws3 


w4  = 


CLa  qLa  S  . 

12  WEs 


21. 


(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  ash,  maintenance  live  load  top,  snow,  wind 

s 


“l  =  (qDl  +  «D1  +  qDi  +  V  *  1S  +  qVl>  II  +  “si 


”2  “  ('CLa  \a  *  qW2)  12 


22. 


W3  =  ('qD3  ‘  qDl  "  qDi  “  qLa  +  12  '  Ws3 

W4  =  (_CLa  qLa  +  qW4)  12 

(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  ash,  maintenance  live  load  top,  snow, 
earthquake 

W1  =  (qDl  +  qDl  +  qDi  +  qLr  +  qS}  12  +  Wsl 
CLa  qLa  S 


w2  =  - 


12 


w, 


Es 


W3  ("qD3  "  qDl  "  qDi  "  qLa)  12  "  Ws3 


CLa  qLa  S  , 

W4  '  "  12  WEs 


(evaluate  with  Axial  Load  Combination  D) 


23.  Unit  down,  maintenance  live  load  top  and  bottom,  snow, 


”l  =  (qDl  *  «Dl  *  qDi  *  «Lr  +  qs  +  W  12  +  ”sl 


s 

\c 

V] 

li.t] 


W3  =  (_qD3  "  qDl  “  qDi  "  qLr  +  ‘W  12  “  Ws3 


(evaluate  with  Axial  Load  Combination  D) 

24.  Unit  down,  maintenance  live  load  top  and  bottom,  snow, 
earthquake 


”l  =  (qDl  +  qDl  +  qDi  +  qLr  *  12  +  “si 

W2  =  WEs 

W3  =  ("qD3  ‘  qDl  "  qDi  "  qLr^  12  "  Ws3 
W4  =  WEs 

(evaluate  with  Axial  Load  Combination  D) 

25.  Unit  down,  maintenance  live  load  bottom,  wind 

W1  =  (qDl  +  qDl  +  qDi  +  qWp  12  +  Wsl 


W3  ("qD3  “  qDl  '  qDi  ‘  qLr  +  qW3)  12  "  Ws3 


W4  12 


(evaluate  with  Axial  Load  Combination  D) 

26.  Unit  down,  maintenance  live  load  bottom,  earthquake 


i 

& 


”l  =  (qDl  *  qDl  +  qDi5  fl  +  "si 


W2  “  WEs 


■•vl 

m 

'VI 

•  v 

•'ll'] 


3  '  D3  D1  ^Di  ^Lr  12  s3 

WA  =  WEs 

(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  maintenance  live  load  top,  snow,  wind 

W1  =  (qDl  +  qDl  +  qDi  +  qLr  +  qS  +  qWl}  12  +  Wsl 


W3  ("qD3  "  qDl  "  qDi  +  qW3^  12  "  Ws3 
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(evaluate  with  Axial  Load  Combination  D) 

Unit  down,  maintenance  live  load  top,  snow,  earthquake 

W1  =  (qDl  +  qDl  +  qDi  +  qLr  +  qS)  TI  +  Wsl 


W1  = 

(qDl 

w2  = 

WEs 

W3  = 

("qD3 

w4  = 

WEs 

(evaluate 

(evaluate  with  Axial  Load  Combination  D) 


2.7.3  Excursion  Vacuum  or  Pressure  Conditions.  Different  com¬ 
binations  of  the  uniformly  distributed  transverse  loads  w^ ,  w^ ,  w^  and 
w4,  and  the  axial  loads  ,  P^,  a°d  ^4  are  evaluated  in  order  to 

determine  the  required  stiffener  section  for  each  side  of  the  duct 
under  excursion  conditions.  The  allowable  stiffener  stress  is 
increased  by  2/3,  up  to  a  maximum  equal  to  the  yield  stress,  under 
these  loading  combinations. 

2 . 7 . 3 . 1  Required  Input . 

C^a  -  percent  ash  live  load  coefficient,  for  determination  of  ash 
live  load  on  side  panels 


v$v )%•  i.  i 
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4Di 


*D1 


*Dn 


insulation  and  lagging  dead  load  (psf) 

duct  lining  dead  load  (psf) 

dead  load  of  side  n  duct  plate  (psf) 


Y  t  / 12 

sp  n 


*La 


*Lr 


*Xp 


*Xv 


sn 


ash  live  load  (psf) 

adjusted  maintenance  live  load,  from  Section  2.1  (psf) 

design  snow  load,  from  Section  2.3  (psf) 

excursion  pressure,  from  PDM  (psf) 

excursion  vacuum,  from  PDM  (psf) 

stiffener  spacing  (in.) 

side  n  plate  thickness  (in.) 

weight  per  foot  of  side  n  stiffener  (plf) 

unit  weight  of  duct  plate  (pcf) 


2. 7. 3. 2  Computation.  Transverse  loads  acting  inward  toward  the 
duct  center  and  axial  compressive  loads  are  considered  positive. 
Transverse  loads  acting  outward  away  from  the  duct  center  and  axial 
tensile  loads  are  considered  negative.  The  following  8  transverse 
load  combinations  are  evaluated. 


Excursion  vacuum,  ash,  maintenance  live  load,  snow 


W1  =  (qDl  +  qDl  +  qDi  +  qXv  +  qLr  +  qS)  12  +  wsl 


W2  =  W4  =  (qXv  '  CLa  qLa}  12 


W3  ("qD3  "  qDl  "  qDi  +  qXv  '  qLa)  12  "  Ws3 


(evaluate  with  Axial  Load  Combination  A) 
Excursion  vacuum,  ash 

s 


W1  =  (qDl  +  qDl  +  qDi  +  qXv}  12  +  Wsl 


W2  =  W4  =  (qXv  ‘  CLa  qLa}  12 


W3  ~  ("qD3  "  qDl  '  qDi  +  qXv  "  qLa)  12  '  Ws3 


(evaluate  with  Axial  Load  Combination  A) 
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3.  Excursion  vacuum,  maintenance  live  load,  snow 

W1  =  (qDl  +  qDl  +  qDi  +  qXv  +  qLr  +  qS}  12  +  Ws 


w2  W4 


q_Xv! 

12 


=  (-qm  '  <lr 


qDi  +  qXv}  12  "  Ws3 


(evaluate  with  Axial  Load  Combination  A) 
4.  Excursion  vacuum 


Wj  =  (q 


D1 


+  qD1  +  qn,-  +  qvJ  +  w 


*Di 


s_ 

‘Xv"'  12 


s  1 


w2  W4 


W 

12 


w3  (“qD3  "  qDl  "  qDi  +  qXv^  12  "  Ws3 
(evaluate  with  Axial  Load  Combination  A) 

5.  Excursion  pressure,  ash,  maintenance  live  load, 


w 


1 


w 


2 


w,  = 


+  qDl  +  qDi  "  qXp  +  qLr  +  qS} 
(_qXp  "  CLa  qLa^  12 


W3  ("qD3  "  qDl  "  qDi  “  qXp  "  qLa^  12  "  Ws3 
(evaluate  with  Axial  Load  Combinations  B  and 
6.  Excursion  pressure,  ash 


W1  ~  (qDl  +  qDl  +  qDi  '  qXp)  12  +  Wsl 

W2  =  W4  =  (-qXP  ‘  CLa  qLa}  fl 

W3  =  ("qD3  "  qDl  "  qDi  +  qXp  "  qLa ^  12  ~  Ws3 
(evaluate  with  Axial  Load  Combinations  B  and  C 
7.  Excursion  pressure,  maintenance  live  load,  snow 


(qDl  +  qDl  +  qDi 


qXp  +  qLr  +  qS}  12  +  W: 


W4  = 


^e! 

12 


snow 

1 
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W3  =  ("qD3  '  qDl  "  qDi  "  qXp^  12  "  Ws3 
(evaluate  with  Axial  Load  Combinations  B  and  C) 
Excursion  pressure 

”l  *  <%1  *  ■  V  fl  *  WS1 


w2  =  w4  =  - 


W3  ^"qD3  “  qE 


qDi  "  qXp)  12 


(evaluate  with  Axial  Load  Combinations  B  and  C) 

3.  PLATE  THICKNESS  AND  STIFFENER  SPACING  DETERMINATION 

The  plate  thickness  and  stiffener  spacing  for  interior  panels  of 
the  duct  section  are  determined  based  on  nonlinear  theory  as  presented 
by  Timoshenko.  Each  of  the  four  duct  sides  is  assumed  to  act  inde¬ 
pendently  of  the  other  three  sides.  Each  panel  is  modeled  as  one-way 
plate  bending  between  fixed  (no  rotation)  and  held  (no  in-plane  dis¬ 
placement)  supports  (the  stiffeners),  with  the  plate  span  equal  to  the 
stiffener  spacing.  The  procedure  is  valid  for  both  small  and  large 

plate  deflections,  and  includes  the  effects  of  both  bending  and  mem- 

31 

brane  tensile  stresses.  According  to  Timoshenko,  this  approach 
gives  good  results  for  panels  with  the  ratio  of  stiffener  spacing  to 
panel  width  of  less  than  2/3.  This  constraint  is  met  in  the  vast 
majority  of  power  plant  duct  work  configurations. 

Due  to  fabrication  considerations,  the  plate  thicknesses  in  the 
end  panels  must  be  the  same  as  for  the  adjacent  interior  panels.  The 
required  plate  boundary  condition  for  use  of  the  nonlinear  theory 
(fixed  and  held  edges),  however,  is  not  satisfied  in  the  end  panels. 
End  stiffeners  with  adequate  torsional  and  minor  axis  rigidity  to 
reasonably  approximate  the  nonlinear  theory  boundary  condition 
requirement  would  be  impracticably  heavy.  Therefore,  the  stiffener 
spacings  for  the  end  panels  are  based  on  linear  theory  in  which  the 
supports  are  assumed  to  be  unrestrained  in  the  plane  of  the  plate. 
This  results  in  closer  stiffener  spacings  for  the  end  panels. 
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Calculations  indicate  that  the  linear  theory  approach  should  be 
used  to  determine  the  stiffener  spacing  from  the  end  of  the  duct 
section  inward  for  a  distance  equal  to  one  half  the  width  of  the  duct 
cross  section  (for  top  and  bottom  duct  panels)  or  one  half  the  height 
of  the  duct  cross  section  (for  side  duct  panels).  If  this  design 
guideline  is  used,  the  maximum  plate  deflection  in  the  first  interior 
panel  with  the  greater  stiffener  spacing  (based  on  nonlinear  theory) 
may  exceed  the  theoretical  maximum  deflection  (calculated  using  the 
nonlinear  approach  and  assuming  rigidly  held  edges)  by  as  much  as 
50  percent.  If  this  increased  maximum  deflection  in  the  first  inter¬ 
ior  panel  designed  according  to  nonlinear  theory  is  unacceptable,  the 
linear  theory  is  used  to  determine  the  stiffener  spacing  for  a  dis¬ 
tance  inward  from  the  end  of  the  duct  section  equal  to  the  width  of 
the  duct  cross  section  (for  top  and  bottom  panels)  or  the  height  of 
the  duct  cross  section  (for  side  panels). 


tion 


3. 


P 


1  Required  Input. 

allow  "  rat:‘-0  stiffener  spacing  to  allowable  plate  deflec- 


Ep  -  plate  modulus  of  elasticity  (ksi) 
v  -  Poisson's  ratio  for  the  plate 


3.2  Interior  Panels. 

Using  a  trial  value  for  plate  thickness  and  stiffener  spacing,  u 
is  determined,  using  the  bisection  algorithm,  from  Equation  (15)  in 
Theory  of  Plates  and  Shells: 

(20.736  x  IQ9)  Ep2t8  81  27  .  27  .  9 

.,2,2  2  8  7_  .  ,,  6  .  .2  ,  8  0  6 

(1-v  )  q  s  16u  tanhu  16u  smh  u  4u  8u 

where 


E 

P 

t 


=  plate  modulus  of  elasticity 
=  plate  thickness  (in.) 


(ksi) 


I 

» 


i“l 

r 


$ 

B 


£ 


a 


yS 
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V  =  Poisson's  ratio  for  the  plate 

q  =  uniformly  distributed  load,  as  determined  in  Section  2.5 


(psf) 


s  =  stiffener  spacing  (in.) 

(Equation  (5),  Theory  of  Plates  and  Shells) 


u  = 


S  s 


4D 


Sp  =  membrane  force  in  the  plate  (k/in.) 


D  =  flexural  rigidity  of  the  plate  (k-in.) 
3 


E  t~ 
_2_ 


12(l-v  ) 

The  constant  tensile  stress  (membrane  stress)  in  the  plate  is 
2 


E  u 


CT  =  - P  ^  I  -  I  (Equation  (16),  Theory  of  Plates  and  Shells) 

1  3(1  V)  Vs/ 


The  maximum  bending  stress  in  the  plate,  which  occurs  in  the 
extreme  fibers  at  the  fixed  supports  (stiffeners),  is: 

-2 


°2  = 


288  x  10' 


;»,W 


3  t ri 


(Equation  (17),  Theory  of  Plates  and  Shells) 


where 


4^00  =  ^(u  tanhu)  (Equation  (13),  Theory  of  Plates  and  Shells) 


u  tanhu 
The  maximum  total  stress  is 


CT 

p  ,max 

where 

CT 

p  ,max 

CT, 

§ 

1 

CT2 

=  ai  +  a2 


=  maximum  plate  stress  (ksi) 

=  plate  membrane  stress  (ksi) 

=  maximum  plate  bending  stress  (ksi) 
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Note:  Humphreys  presents  the  following  alternate  equation  for 
determining  maximum  stress  in  the  plate  which  may  be  used  for 
quick  hand  calculation  of  the  maximum  stress.  This  expression 
ranges  from  about  2.5  percent  unconservative  to  10  percent  con¬ 
servative  (for  heavy  loading)  compared  to  Timoshenko. 
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p,max 


=  E0.23„0.77('£\1-08tor6  >t/2 

p  \t  )  p,max  - 


where 


Ep  =  plate  modulus  of  elasticity  (psi) 
w  =  uniformly  distributed  load  (psi) 
s  =  stiffener  spacing  (in.) 
t  =  plate  thickness  (in.) 

The  maximum  plate  deflection  (at  center  span;  midway  between  the 
stiffeners)  is 


6  =  — — ■ * - 7  f  (u) 

■’•max  55.3  x  106D  1 


(Equation  (18),  Theory  of  Plates 
and  Shells) 


where 


f  _  24  /  u_  u  _  u  | 

1^U  ^4  l  2  sinhu  tanhu  I 

The  above  method  for  solving  for  maximum  plate  stresses  and 
deflections  of  interior  panels  is  practical  in  a  design  environment 
only  when  used  in  a  computer  program. 

3.3  End  Panels.  The  plate  thickness  is  the  same  as  that  for  the 
adjacent  interior  panel.  The  maximum  stress  and  deflection  are  calcu¬ 
lated  using  linear  theory  and  assuming  that  the  plate  is  simply  sup¬ 
ported  along  one  side  and  fixed  along  the  other.  The  stiffeners  are 
assumed  to  provide  no  restraint  in  the  plane  of  the  plate. 

The  maximum  total  stress  is 


where 


(psf) 


P,maX  192000  t2 

°p,max  =  maximum  plate  stress  (ksi) 

q  =  uniformly  distributed  load,  as  determined  in  Section  2.5 
I 

s  =  stiffener  spacing  (in.) 
t  =  plate  thickness  (in.) 


The  maximum  plate  deflection  is 
4 

_  _ SI _ 

p’max  26.64  x  106  D 

where 

p,max  =  maximum  plate  deflection  (in.) 

D  =  flexural  rigidity  of  the  plate,  as  calculated  in  Section  3.2 
(k-in. ) 

3.4  Design  Criteria.  The  design  criteria  for  plate  stress  and 
deflection  are  as  given  in  Sections  3.4.1,  3.4.2  and  3.4.3. 

3.4.1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Effects . 


3.4. 1.1  Interior  Panel  Stress  Criterion.  The  plate  thickness 
and  stiffener  spacing  for  interior  panels  are  selected  such  that  the 
following  interaction  equation  is  satisfied. 

a  a 

0.60  F  0.75  F  - 

yp  yp 

where 

(Jj  =  plate  membrane  (tension)  stress,  from  Section  3.2  (ksi) 
=  maximum  plate  bending  stress,  from  Section  3.2  (ksi) 

F  =  plate  yield  stress  (ksi) 

3.4. 1.2  End  Panel  Stress  Criterion.  The  plate  thickness  and 

stiffener  spacing  for  end  panels  are  selected  such  that  the  following 

criterion  is  satisfied. 

CT  <  0.75  F 

p,max  -  yp 

where 

a  =  maximum  plate  stress,  from  Section  3.3  (ksi) 

p,max 


3.4. 1.3  Interior  and  End  Panel  Deflection  Criteria.  The  maxi¬ 
mum  allowable  plate  deflection  of  has  been  used  in  the  past  by 
ductwork  designers  at  Black  &  Veatch  with  satisfactory  results.  A 
more  restrictive  value  for  allowable  plate  deflection  may  be  required 
due  to  such  factors  as  manufacturer-specified  maximum  deflections  for 
certain  duct  lining  materials. 


3.4.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 
Effects .  Allowable  stresses  may  be  increased  by  1/3  above  the  values 
otherwise  provided  when  wind  or  seismic  effects  are  included  in  the 
design  loading,  according  to  AISC  Section  1.5.6.  Sections  3.4.2. 1  and 

3. 4. 2. 2  reflect  the  increased  allowable  stress. 


3.4.2. 1  Interior  Panel  Stress  Criterion.  The  plate  thickness 
and  stiffener  spacing  for  interior  panels  are  selected  such  that  the 
following  interaction  equation  is  satisfied. 


1 


0.80  F 


<  1.0 


yp 


yp 


3. 4. 2. 2  End  Panel  Stress  Criterion.  The  plate  thickness  and 

stiffener  spacing  for  end  panels  are  selected  such  that  the  following 

criterion  is  satisfied. 

CT  <  F 

p,max  -  yp 


3. 4. 2. 3  Interior  and  End  Panel  Deflection  Criteria.  No  maximum 
deflection  is  specified  for  this  loading,  unless  required  by  the 
client  or  duct  lining  manufacturer. 


3.4.3  Excursion  Vacuum  or  Pressure  Conditions. 
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3.4.3. 1  Interior  Panel  Stress  Criterion.  The  plate  thickness 
and  stiffener  spacing  for  interior  panels  are  selected  such  that  the 
following  criterion  is  satisfied. 

CT,  +  CT_  <  F 
1  2  -  yp 

3. 4. 3. 2  End  Panel  Stress  Criterion.  The  plate  thickness  and 
stiffener  spacing  for  end  panels  are  selected  such  that  the  following 
criterion  is  satisfied. 

a  <  F 
p,max  -  yp 

3 .4. 3. 3  Interior  and  End  Panel  Deflection  Criteria.  No  maximum 
deflection  is  specified  for  this  loading,  unless  required  by  the 
client  or  duct  lining  manufacturer. 

3.5  Corrosion  Allowance.  If  needed,  a  corrosion  allowance  is 
added  to  the  duct  thickness.  The  additional  thickness  is  not  con¬ 
sidered  when  calculating  strength  and  stiffness  properties  of  the 
plate,  but  is  included  in  the  plate  dead  load.  The  normal  corrosion 
allowance  is  between  1/16  and  1/8  inch. 

4.  PINNED-END  STIFFENER  DESIGN 

Each  stiffener  is  considered  independently,  as  a  pinned-end 
beam-column  with  length  equal  to  the  duct  width  or  height,  as  appli¬ 
cable,  unless  internal  bracing  is  provided  to  reduce  the  unbraced 
length.  The  top  and  bottom  stiffeners  are  designed  to  resist  combined 
loading  from  transverse  forces  and  the  axial  force  due  to  internal 
pressures  or  vacuums.  The  side  stiffeners  are  designed  to  resist  the 
combined  loading  from  transverse  forces  and  axial  forces  due  to  ten¬ 
sion  field  action  and  internal  pressures  or  vacuums.  Stiffeners  on 
all  four  sides  are  designed  to  have  the  same  nominal  depth  due  to 
insulation  and  lagging  installation  requirements.  Stiffener  spacings 
may  vary  for  different  sides  of  the  same  duct  section.  However, 
stiffener  spacings  for  all  sides  of  the  duct  are  selected  to  be  even 
multiples  of  the  minimum  stiffener  spacing  for  that  section  of  duct. 


\V  %  ' ‘-V*.  ^  •-  • 
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Equal  moduli  of  elasticity  for  the  duct  plate  and  stiffeners  are 

assumed  in  the  following  design  procedure.  If  there  is  a  significant 

difference  between  the  two,  the  designer  should  calculate  stresses  and 

deflections  based  on  a  transformed  section,  as  described  by  Timo- 
33 

shenko.  Differing  plate  and  stiffener  yield  stresses  are  accommo¬ 
dated  in  the  following  design  procedure. 


4.1  Effective  Section  Properties  Determination.  A  trial  section 
is  selected  and  the  effective  moment  of  inertia  and  section  modulus 
for  the  combined  section  and  effective  plate  are  calculated.  The 
effective  plate  width  (portion  of  the  plate  adjacent  to  the  stiffener 
which  can  be  considered  to  act  with  the  stiffener  in  resisting  bending 
and  axial  forces)  is 


where 

ben  =  effective  plate  width  to  be  used  in  conjunction  with  stiff¬ 
ener  n  (in. ) 

t  =  plate  thickness  (in.) 

Ep  =  plate  modulus  of  elasticity  (ksi) 

=  plate  yield  stress  (ksi) 

This  represents  a  conservative  adjustment  to  the  equation  devel- 
34 

oped  by  E.  E.  Sechler.  This  equation  is  used  by  the  U.S.  Army  Corps 

of  Engineers  to  specify  the  effective  flange  width  of  skinplate  adja- 
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cent  to  vertical  tee  section  stiffeners  on  spillway  tainter  gates. 

The  procedure  given  in  Sections  4.1.1  and  4.1.2  is  used  to  find 
the  effective  section  modulus  and  moment  of  inertia  of  the  stiffener 
and  plate  assembly.  Nomenclature  is  as  shown  in  Figure  6. 

4.1.1  WT  Sections . 


•  k'rVVVri*' 


FIGURE  6 .  COMBINED  STIFFENER  AND  EFFECTIVE  PLATE 


4.1.2  W  and  Channel  Sections. 


4. 1.2.1  Required  Input, 
d  =  depth  of  member  (in.) 
t  =  plate  thickness  (in.) 

2 

A  =  cross-sectional  area  of  stiffener  (in.  ) 

s  4 

I  =  moment  of  inertia  of  stiffener  (in.  ) 
s 

Ep  =  modulus  of  elasticity  of  the  plate  (ksi) 
=  plate  yield  stress  (ksi) 


4. 1.2.2  Computation.  The  distance  y  =  d/2  is  calculated.  Then 

A  ,  y'  I  ,  and  r  are  calculated  as  shown  in  Sections  4. 1.1.2, 
e’  3  ’  e’  e 

4. 1.1.3,  4. 1.1.4,  and  4. 1.1.5. 

4.2  Transverse  Loading.  The  transverse  loading  on  the  combined 
stiffener  and  adjacent  effective  plate  is  determined  as  shown  in 
Section  2.6.1.  Positive  transverse  loads  act  inward  toward  the  duct 
center. 


4.2.1  Maximum  Bending  Stress.  Maximum  bending  stresses  in  the 
trial  stiffener  section  and  in  the  effective  portion  of  the  plate 
adjacent  to  the  stiffener  due  to  transverse  loads  are  calculated  as 
follows . 


4.2. 1.1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 


Forces . 


4.2. 1.1.1  Positive  Loading. 


M  (d-y')  w  ,L  (12  in . /ft . ) (d-y ' ) 
max  1  _  n+  n  _  7 

Xe  8  I  (103  Ib/k) 

e 


8 


0.0015  w  L  (d-y') 
n+  n 


Ill 


i 


»V1 

<»! 


0.0015  w  L  2  y' 
n+  n 


0.0015  w  L  (d+t  -y') 
n+  n  nJ 


where 

fb  t+  =  maximum  stiffener  tensile  bending  stress  under  positive 
loading  (ksi) 

^bsc+  =  max^mum  stiffener  compressive  bending  stress  under  posi¬ 
tive  loading  (ksi) 

f^p+  =  maximum  effective  plate  tensile  bending  stress  under 
positive  loading  (ksi) 

M  =  maximum  stiffener  moment  (k-in.) 
max 

d  =  depth  of  stiffener  section  (in.) 

y'  =  distance  from  extreme  exterior  fiber  to  centroidal  axis  of 
combined  stiffener  and  effective  plate,  from  Section  4.1  (in.) 

«n+  =  positive  uniformly  distributed  load  on  side  n  due  to  normal 
operation,  excluding  wind  and  seismic  forces,  from  Section  2.6. 1.1 
(plf) 

Ln  =  width  of  side  n  duct  panel  (ft.) 

I  =  moment  of  inertia  of  combined  stiffener  and  adiacent  effec- 

4 

tive  plate,  from  Section  4.1  (in.  ) 

tR  =  side  n  plate  thickness  (in.) 

4.2. 1.1.2  Negative  Loading. 

0.0015  w  L  2  y' 
n-  n  J 


0.0015  w  L  (d-y ' ) 
n-  n 


0.0015  w  L  (d+t  -y’ ) 
n-  n  n 


wb  re 
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f,  .  =  maximum  stiffener  tensile  bending  stress  under  negative 

bst- 

loading  (ksi) 

^bsc  =  max^mum  stiffener  compressive  bending  stress  under  nega¬ 
tive  loading  (ksi) 

^bp-  =  maximum  effective  plate  compressive  bending  stress  under 
negative  loading  (ksi) 

4.2. 1.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 

Forces .  The  procedure  detailed  in  Section  4.2. 1.1  is  followed,  where 

w  .  and  w  are  as  determined  in  Section  2.6. 1.2. 
n+  n- 

4.2. 1.3  Excursion  Vacuum  or  Pressure  Conditions.  The  procedure 

detailed  in  Section  4.2. 1.1  is  followed,  where  w  .  and  w  are  as 

’  n+  n- 

determined  in  Section  2.6. 1.3. 

4.2.2  Allowable  Bending  Stress.  The  allowable  bending  stresses 
in  the  absence  of  axial  forces  are  computed  for  the  trial  stiffener 
section  and  the  adjacent  effective  plate.  When  channel  sections  are 
used  as  stiffeners,  Sections  4.2.2. 1.3  and  4. 2. 2. 2. 2  only  apply. 

4.2.2. 1  Positive  Loading.  Positive  transverse  loads  act  inward 
toward  the  duct  center  causing  compression  in  the  exterior  flange  of 
the  stiffener  and  tension  in  the  effective  plate. 


4.2.2. 1.1  Adaptation  of  AISC  Section  1.5. 1.4.1. 


fl  „  - 

=  F.  =  0.66  F 

bst+ 

bsc+  ys 

Fl  ^  = 

0.66  F 

bp+ 

yp 

If:  1  . 

The  stiffener  is 

continuously  welded 

to  the  duct  plate. 

2. 

The  width-thickness  ratio  of  the 

exterior  stiffener 

flange  does  not 

exceed  65/^F^. 

I 


3. 


The  depth-thickness  ratio  of  the  web  does  not  exceed 

F  )  ( 1-3 . 74  f  J F  )  when  f  JF  <  0.16  nor 
ys  an+  ys  an+  ys  - 

257//F  when  f  /F  >  0.16,  where  f  ,  is  calculated 
ys  an+  ys  an+ 

as  shown  in  Section  4.3.1. 


(640/^1 


4. 


The  laterally  unsupported  length  of  the  exterior  stiff¬ 
ener  flange  does  not  exceed: 

76b  , 


where 


~\[*y~s 


nor 


20,000 


M'Mf)  Fys 


bst+ 


=  allowable  stiffener  tensile  bending  stress  due  to  posi¬ 


tive  loads  in  the  absence  of  axial  force  (ksi) 

^bsc+  =  aH°wat)le  stiffener  compressive  bending  stress  due  to 

positive  loads  in  the  absence  of  axial  force  (ksi) 

F^  +  =  allowable  effective  plate  bending  stress  due  to  positive 

loads  in  the  absence  of  axial  force  (ksi) 

F^  =  stiffener  yield  stress  (ksi) 

F  =  plate  yield  stress  (ksi) 
yp 

bf  =  stiffener  flange  width  (in.) 

d'  =  depth  of  stiffener  section  plus  plate  thickness  (in.) 

2 

=  area  of  exterior  flange  (in.  ) 


4.2.2. 1.2  Adaptation  of  AISC  Section  I.5.I.4.2.  For  plate- 
stiffener  combinations  which  satisfy  the  requirements  of  AISC 
1.5. 1.4.1  above,  except  that  65/^F^  <  b^/2t^  <  95/Jf^ 


ys 


F  =  p  —  f 
bst+  bsc+  ys 


0.79  -  0.002 


(AISC  Equation  (1.5-5a)) 


where  t^  =  exterior  stiffener  flange  thickness  (in.) 


4.2.2. 1.3  Adaptation  of  AISC  Section  1.5. 1.4.5.  For  channels 
and  for  plate-stiffener  combinations  not  covered  in  Sections  4. 2. 2. 1.1 


.s 


M 

$ 

k 


or  4. 2. 2. 1.2,  the  provisions  of  Sections  4.2.2. 1.3.1  and  4.2.2. 1.3.2 
apply. 

4.2.2. 1.3.1  Tension.  (from  AISC  Section  1.5. 1.4. 5.1) 

F,  ^  ~  0.60  F 
bst+  ys 

F,  =  0.60  F 
bp+  yp 

4.2.2. 1.3.2  Compression,  (from  AISC  Section  1.5. 1.4. 5. 2) 

From  AISC  Section  1.5.1.4.5.2a: 

If  the  width-thickness  ratio  of  exterior  (unstiffened)  stiffener 
flange  is  not  greater  than  95/^F  ,  the  allowable  compressive  bending 

stress  is  the  larger  value  computed  by  AISC  Formulas  (1.5-6a)  or 
(1.5-6b)  and  (1.5-7)  as  shown  below.  For  channels,  AISC  Formula 
(1.5-7)  only  is  used. 

When  <  J  <  /SIP  x  103 

V  ys  rt  V  Fys 


,r*.^ 

L3  i. 


s 

530  x  103 


F  <  0.60  F 


(AISC  Equation  (1.5-6a)) 


When  —  > 
rt  - 


'  5 10  x  10' 
F 

ys 


,  _  170  x  10  .  „ 

bSC+  (1  /rj2  "  ys 

n  t 


F,  =  !2jv/a0  <  0-60  F 

bsc+  1  d  /Ar  -  ys 

n  f  J 


(AISC  Equation  (1.5-6b)) 


(AISC  Equation  (1.5-7)) 


where 

1  =  maximum  distance  between  stiffener  cross  sections  braced 
n 

against  twist  or  lateral  displacement  of  the  exterior  flange,  for 
side  n  (in. ) 

r  =  radius  of  gyration  of  a  section  comprising  the  exterior 
flange  of  the  stiffener  plus  1/3  of  the  web  area  on  the  exterior  side 


zmmm 
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F,  =  F.  =  0.60  F 
bst-  bsc-  ys 

F.  =  0.60  F 
bp-  yp 

4.3  Axial  Loading.  The  axial  loading  on  the  combined  stiffener 
and  adjacent  effective  plate  is  determined  as  shown  in  Section  2.6.2. 

4.3.1  Maximum  Axial  Stress.  Axial  compressive  stresses  are 
considered  positive.  Axial  tensile  stresses  are  considered  negative. 

4. 3. 1.1  Normal  Operating  Conditions. 


4.3. 1.1.1  Positive  Loading.  Vacuums  and  vertical  stiffener 
axial  forces  associated  with  tension  field  action  are  considered 
positive  loads,  causing  axial  compressive  stresses  in  the  stiffener 
and  adjacent  effective  plate. 


1,000  lb 


vl 

1,000  A 

7  e 


P  .  P  0 

F  -  s  *  v2 

a2+  “  1,000  A 


a3+  1,000  A 


P  .  P  , 
s  +  v4 

a4+  =  1,000  A 

e 

where 

fan+  =  maximum  axial  compressive  stress  in  stiffener  and  adjacent 
effective  plate  on  side  n  (ksi) 

Pvn  =  axial  compressive  force  in  stiffener  n  due  to  normal  oper¬ 
ating  vacuum,  as  calculated  in  Section  2.6.2. 1.1  (lb) 

Pg  =  axial  compressive  force  in  vertical  stiffener  due  to  tension 
field  action,  as  calculated  in  Section  2. 6. 2. 2 
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r»ji 

r.V 


,y> 


Ag  =  area  of  combined  stiffener  and  effective  plate,  from  Sec¬ 
tion  4. 1  (in. 


4.3. 1.1.2  Negative  Loading.  Pressures  are  considered  negative 
loads,  causing  axial  tensile  stresses  in  the  stiffener  and  adjacent 
effective  plate. 

P 


ii. 


al-  1,000  A 


g 

fa2_  =  j~ooo  a~  (ax*-a^  tension  due  to  internal  pressure  is  ignored) 


P3 


a3-  1,000  A 


g 

fa^_  =  ^  000  A  (axi-al  tension  due  to  internal  pressure  is  ignored) 


where 


fan_  =  maximum  axial  stress  due  to  negative  loading  in  stiffener 


and  adjacent  effective  plate  on  side  n  (ksi) 

Ppn  =  axial  tensile  force  in  stiffener  n  due  to  normal  operating 
pressure,  as  calculated  in  Section  2. 6. 2. 1.1  (lb) 


4.3. 1.2  Excursion  Conditions.  The  equations  given  in  Sec¬ 


tion  4.3. 1.1  are  used,  where  P  and  P  are  as  calculated  in  Sec- 

vn  pn 

tion  2.6.2. 1.2. 


4.3.2  Allowable  Axial  Compressive  Stress.  The  allowable  axial 
compressive  stress  in  the  absence  of  bending  moment  is  computed  for 
the  trial  stiffener  section  and  adjacent  effective  plate.  Each  stif¬ 
fener  is  assumed  to  have  an  unbraced  length  equal  to  the  width  or 
height  of  the  duct  cross  section,  as  applicable.  The  effective  length 
factor  is  taken  as  unity. 


4-3.2. 1  Adaptation  of  AISC  Section  1.5. 1.3.1.  If  the  width- 

thickness  ratio  of  the  exterior  (unstiffened)  stiffener  flange  does 

not  exceed  95/ /f  ,  and  12  L  /r  <  C  ,  then 
V  ys’  n  e  -  c’ 


(12  L/r 

)2 

1  - 

F 

2  C  2 

L_  c 

ys 

5  + 

3(12  L  /r  ) 
n  e 

(12  L/r)3 
n  e 

3 

8  C 

c 

3 

8  C  J 
c 

where 

F  =  allowable  axial  compressive  stiffener  stress  in  the  absence 

a 

of  bending  moment  (ksi) 

Ln  =  length  of  stiffener  n  (ft.) 

re  =  effective  radius  of  gyration  of  combined  stiffener  and 

effective  plate,  from  Section  4.1  (in.) 

F  =  stiffener  yield  stress  (ksi) 
ys 


Es  =  stiffener  modulus  of  elasticity  (ksi) 

4. 3. 2. 2  Adaptation  of  AISC  Section  1.5. 1.3.2.  For  stiffener 
sections  not  covered  in  Section  4. 3. 2.1, 

12n2  E 

F  =  - 5 — - 

3  23  (12  L  /r  )2 

n  e 

4.4  Trial  Section  Determination.  For  simplicity  in  design  and 
fabrication,  all  intermediate  stiffeners  on  any  one  side  of  a  section 
of  ductwork  are  of  identical  size,  and  are  designed  to  resist  the 
axial  forces  due  to  tension  field  action  and/or  internal  pressure  or 
vacuum,  and  the  lateral  loading,  w^,  appropriate  for  the  loading  case. 
All  intermediate  stiffeners  on  all  sides  of  a  section  of  ductwork  are 
designed  to  have  the  same  nominal  depth.  The  intermediate  stiffeners 
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are  sized  to  satisfy  the  requirements  of  Sections  A. 4.1,  4.4.2,  and 
4.4.3  following. 

4.4.1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Forces . 


4.4. 1.1  Positive  Loading. 

ri  + 

If  -p —  <  0.15,  use  AISC  Formula  (1.6-2): 
a 

Jsi  +  <  i.o 

a  bsc+ 

where 

fan+  =  maximum  axial  compressive  stress  in  stiffener  and  adjacent 
effective  plate  on  side  n,  for  normal  operation,  as  calculated  in 
Section  4.3. 1.1.1  (ksi) 

Fa  =  allowable  axial  compressive  stiffener  stress  in  the  absence 
of  bending  moment,  as  calculated  in  Section  4.3.2  (ksi) 

fbsc+  =  maximum  stiffener  compressive  bending  stress  under  posi¬ 
tive  loading,  for  normal  operation  excluding  wind  and  seismic  forces, 
as  determined  in  Section  4.2. 1.1.1  (ksi) 

^bsc+  =  aH°wable  stiffener  compressive  bending  stress  due  to 
positive  loads  in  the  absence  of  axial  force,  as  determined  in  Sec¬ 
tion  4.2.2. 1  (ksi) 
f  . 

If  — p —  >  0.15,  use  AISC  Formula  (1.6-la): 
a 


(Buckling 
plate. ) 


C  f,  . 
m  bsc+ 


<  1.0 


an+\ 


F’ 

e 


'  bsc+ 
is  possible  only 


in  the  direction  normal  to  the  duct 


I 
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where 


C  =1.0 
m 


(AISC  Section  1.6.1,  Case  3b) 


12  71  E 


F'  = 
e 


23  (Klb/rbV 


where 


K  =  1.0  (pinned  at  duct  corners) 


1,  =  L  (12  in. /ft.) 
bn 


Substituting: 


F'  = 
e 


12  7l  E  I 
s  e 


23  (144  LA  ) 
n  e  - 


7T2  E  I 
s  e 

276  L  2  A 
n  e 


In  the  above  expression: 

A  =  area  of  combined  stiffener  and  adjacent  effective  plate, 

6  2 
from  Section  4.1  (in.  ) 

E  =  stiffener  modulus  of  elasticity  (ksi) 
s 

I  =  moment  of  inertia  of  combined  stiffener  and  adjacent  effec- 

6  4 

tive  plate,  as  determined  in  Section  4.1  (in.  ) 

Ln  =  height  of  side  n  duct  panel  (ft.) 

Since  F  will  not  exceed  0.60  F  (see  Section  4.3.2)  and  C  = 
a  ys  m 

1.0  (AISC  Section  1.6.1,  Case  3b),  it  is  apparent  that  AISC  Equa¬ 
tion  (1.6-la)  will  always  control,  when  compared  to  AISC  Equa¬ 
tion  (1.6-lb).  Therefore,  Equation  (1.6-lb)  is  not  evaluated  during 
the  design  process. 


4.4. 1.2  Negative  Loading. 

4.4. 1.2.1  Top  and  Bottom  Stiffeners.  The  top  and  bottom  stiff¬ 
eners  are  subjected  to  combined  axial  tension  and  bending  stresses 
under  negative  loading  conditions.  Therefore,  the  provisions  of  AISC 


Section  1.6.2  apply.  The  top  and  bottom  stiffeners  are  selected  to 
satisfy  the  following  requirements: 


0.60  F 


<  1.0 


(AISC  Formula  (1.6-lb)) 


|fbsc-l  1  Fbsc- 
where 

f  =  maximum  axial  stress  due  to  negative  loading  in  stiffener 
an- 

and  adjacent  effective  plate  on  side  n,  for  normal  operation,  as 

determined  in  Section  4.3. 1.1.2  (ksi) 

F  =  stiffener  yield  stress  (ksi) 
ys 

f,  =  maximum  stiffener  tensile  bending  stress  under  negative 
bst- 

loading,  for  normal  operation  excluding  wind  and  seismic  forces,  as 

determined  in  Section  4.2. 1.1.2  (ksi) 

F,  =  allowable  stiffener  tensile  bending  stress  due  to  nega- 
bst- 

tive  loads  in  the  absence  of  axial  force,  as  determined  in  Sec¬ 
tion  4. 2. 2. 2  (ksi) 

fbsc  =  maximum  stiffener  compressive  bending  stress  under  nega¬ 
tive  loading,  for  normal  operation  excluding  wind  and  seismic  forces, 
as  determined  in  Section  4.2. 1.1.2  (ksi) 

Ffosc  =  allowable  stiffener  compressive  bending  stress  due  to 
negative  loads  in  the  absence  of  axial  force,  as  determined  in  Sec¬ 
tion  4. 2. 2. 2  (ksi) 


4.4. 1.2.2  Side  (Vertical)  Stiffeners.  The  side  stiffeners  are 
subjected  to  combined  axial  compression  due  to  tension  field  action 
and  bending  stresses  under  negative  loading  conditions.  As  noted  in 
Section  4. 3. 1.1. 2,  the  axial  tension  due  to  internal  pressure  is 
ignored,  so  that  the  axial  compression  is  conservatively  taken  as  the 
full  value  due  to  tension  field  action, 
f 

<  0.15,  use  AISC  Formula  (1.6-2): 

r 


if 


122 


f 

an- 


F 

a 


+ 


a 


f 

an- 


F  + 
a 


bsc- 


'  bsc- 


<  1.0 


>  0.15,  use  AISC  Formula 


bsc- 


1  - 


276  L  A  f 
_ n  e  an- i 

n2  E  I 
s  e 


'  bsc- 


(1 .6-la)  : 

<  1.0 


4.4.2  Normal  Operating  Conditions,  Includ ing  Wind  or  Seismic 

Forces .  According  to  AISC  Sections  1.5.6  and  1.6.1,  if  the  design 

lateral  load  on  the  stiffener  includes  wind  or  seismic  forces,  the 

allowable  stresses  F  ,  F,  .  ,  F,  , ,  F,  ,  0.60  F  ,  and  F'  may  be 

a  bst-’  bsc+’  bsc-  ys  e 

increased  by  1/3.  This  adjustment  is  made  in  the  following  forms  of 
AISC  Equations  (1.6-2)  and  (1.6-la). 


4.4.2. 1  Positive  Loading. 
3f 


If 


an+ 


4F 


<  0.15,  use  AISC  Formula  (1.6-2) 


3f  *  3  f .  . 

an+  +  ^bsc+  <  j  Q 


4F 


a 

3f 


4F 


If 


an+ 


4F 


bsc+ 


>  0.15,  use  AISC  Formula  (1.6-la): 


3f 


an+ 


3f 


bsc+ 


4F 


207  L  A  f 

4,1 - 

.!il  1  bsc* 
s  e 


-  <  1.0 


whe  re 

*an+  =  maximum  axial  compressive  stress  in  stiffener  and  adjacent 
effective  plate  on  side  n,  for  normal  operation,  as  determined  in 
Sect  ion  4 . 3 . 1 . 1 . 1  ( ks i ) 


1 


^bsc+  =  max^-mum  stiffener  compressive  bending  stress  under  posi¬ 
tive  loading,  for  normal  operation  including  wind  or  seismic  forces, 
as  determined  in  Section  4.2. 1.2  (ksi) 


4. 4. 2. 2  Negative  Loading. 


4. 4. 2. 2.1  Top  and  Bottom  Stiffeners.  The  top  and  bottom  stiff¬ 
eners  are  selected  to  satisfy  the  following  requirements: 


an- 


3  f 


bst- 


0.80  F 


ys 


4F 


<  1.0 


(AISC  Formula  (1.6-lb)) 


bst- 


f.  I  <  4  F, 

bsc-j  -  ^  bsc- 


where 


fan_  =  maximum  axial  stress  due  to  negative  loading  in  stiffener 


and  adjacent  effective  plate  on  side  n,  for  normal  operation,  as 
determined  in  Section  4.3. 1.1.2  (ksi) 

fbst_  =  maximum  stiffener  tensile  bending  stress  under  negative 
loading,  for  normal  operation  including  wind  or  seismic  forces,  as 
determined  in  Section  4.2. 1.2  (ksi) 

fbsc_  =  maximum  stiffener  compressive  bending  stress  under  nega¬ 
tive  loading,  for  normal  operation  including  wind  or  seismic  forces, 
as  determined  in  Section  4.2. 1.2  (ksi) 


4. 4. 2. 2. 2  Side  (Vertical)  Stiffeners. 
3f 


If 


an- 


4F 


<  0.15,  use  AISC  Formula  (1.6-2): 


3f  3  f, 

an-  +  bsc-  <  1Q 


4F 


a 

3f 


4F 


bsc- 


an- 


4F 


>  0.15,  use  AISC  Formula  (1.6-la): 


If 


/  207  L  A  f  \ 

4  ■  - 

'  s  e  ' 


4.4.3  Excursion  Vacuum  or  Pressure  Conditions.  For  this  loading 

case,  the  allowable  stresses  F  ,  F,  ,  F,  F,  ,  and  0.60  F  ,  are 

a  bst-  bsc+  bsc-’  y’ 

increased  by  2/3  cr  set  equal  to  the  yield  stress,  whichever  is  less. 
F^  is  increased  by  23/12.  These  adjustments  are  included  in  the 
following  forms  of  AISC  Equations  (1.6-la),  (1.6-lb)  and  (1.6-2). 


4.4.3. 1  Positive  Loading. 


If  ■  <  0.15,  use  AISC  Formula  (1.6-2): 


<  1.0 


>  0.15,  use  AISC  Formula  (1.6-la): 


<  1.0 


144  L  A  f  , 
n  e  an+ 

2 

7T  E  I 
s  e 


where 


fan+  =  maximum  axial  compressive  stress  in  stiffener  and  adjacent 
effective  plate  on  side  n,  for  excursion  vacuum  conditions,  as  deter¬ 
mined  irt  Section  4.3. 1.2  (ksi) 

^bsc+  =  maximum  stiffener  compressive  bending  stress  under  posi¬ 
tive  loading,  for  excursion  vacuum  conditions,  as  determined  in  Sec¬ 
tion  4.2. 1.3  (ksi) 

F 7  =  5/3  F,  <  F  ,  where  F,  is  the  allowable  stiffener 
bsc+  bsc+  -  ys  ’  bsc+ 

compressive  bending  stress  due  to  positive  loads  in  the  absence  of 
axial  force,  as  calculated  in  Section  4.2.2. 1  (ksi) 


4. 4. 3. 2  Negative  Loading. 


4. 4. 3. 2.1  Top  and  Botton  Stiffeners.  The  top  and  bottom  stiff¬ 
eners  are  selected  to  satisfy  the  following  requirements: 

If  I  If  | 

~ +  -  £  1.0  (AISC  Formula  (1.6-lb)) 

ys  ys 

I  f.  I  <  F 

I  bsc-|  -  ys 

where 

fan_  =  maximum  axial  stress  due  to  negative  loading  in  stiffener 
and  adjacent  effective  plate  on  side  n,  for  excursion  pressure  condi¬ 
tions,  as  determined  in  Section  4.3. 1.2  (ksi) 

f^bst-  =  maximum  stiffener  tensile  bending  stress  under  negative 
loading,  for  excursion  conditions,  as  determined  in  Section  4.2. 1.3 
(ksi) 

fbsc-  =  maximum  stiffener  compressive  bending  stress  under  nega¬ 
tive  loading,  for  excursion  pressure  conditions,  as  determined  in  Sec¬ 
tion  4. 2 . 1 . 3  (ksi) 


4. 4. 3. 2. 2  Side  (Vertical)  Stiffeners, 
f 


If 


an- 


ys 


<  0.15,  use  AISC  Formula  (1.6-2): 


f  f » 

1.0 


ys 


ys 


If 


an- 


ys 


>  0.15,  use  AISC  Formula  (1.6-la): 


an- 


bsc-| 


Fys  /  144  L  2A  f 

i - ;■ e  an  i  f 

7T2  E  I  )  y* 
s  e 


<  1.0 


4.5  Maximum  Plate  Stress.  If  the  plate  vield  stress.  F  .  is 

-  ; -  yp’ 

less  than  the  stiffener  yield  stress,  F  ,  the  maximum  combined  axial 


and  bending  stresses  in  the  effective  portion  of  the  plate  adjacent  to 
the  stiffener  are  checked. 


4.5.1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Forces . 

4.5. 1.1  Positive  Loading.  Positive  loads  act  inward  toward  the 
center  of  the  duct  and  cause  tensile  bending  stresses  in  the  effective 
portion  of  the  plate  adjacent  to  the  stiffener.  However,  the  operat¬ 
ing  vacuum  (a  positive  load,  since  it  tends  to  deflect  the  stiffeners 
toward  the  center  of  the  duct)  also  causes  an  axial  compressive  stress 
in  the  effective  portion  of  the  plate.  The  axial  compressive  stress 
tends  to  offset  the  tensile  bending  stress.  A  conservative  approach 
is  used,  in  that  each  stress  is  considered  separately  and  at  its  full 
value.  The  following  requirements  must  be  satisfied: 

fbp+  -  Fbp+ 

f  <  0.60  F 
an+  -  yp 

where 

f^p+  =  maximum  effective  plate  tensile  bending  stress  under 
positive  loading,  for  normal  operating  conditions  excluding  wind  and 
seismic  forces,  as  determined  in  Section  4. 2. 1.1.1  (ksi) 

F^p+  =  allowable  effective  plate  bending  stress  due  to  positive 
loads  in  the  absence  of  axial  force,  as  determined  in  Section  4.2.2. 1 
(ksi) 

fgn+  =  maximum  axial  compressive  stress  in  effective  plate  on 
side  n,  for  normal  operation,  as  determined  in  Section  4.3. 1.1.1  (ksi) 

F  =  plate  yield  stress  (ksi) 

yp 

4.5. 1.2  Negative  Loading. 


4.5. 1.2.1  Top  and  Bottom  Stiffeners.  The  same  considerations  as 
discussed  in  Section  4.5. 1.1  for  positive  loading  apply  to  the  top  and 
bottom  stiffeners  under  negative  loading.  The  following  requirements 
must  be  satisfied: 


t  .v.v  •.»•••  . 


s.  yv  y. 


If  |  <  0.60  F 
I  an-|  —  yp 

where 

=  maximum  effective  plate  compressive  bending  stress  under 
negative  loading,  for  normal  operating  conditions  excluding  wind  and 
seismic  forces,  as  determined  in  Section  4.2. 1.1.2  (ksi) 

F^  =  allowable  effective  plate  bending  stress  due  to  negative 
loads  in  the  absence  of  axial  force,  as  determined  in  Section  4. 2. 2. 2 
(ksi) 

f  =  maximum  axial  stress  due  to  negative  loading  in  the  effec¬ 
tive  plate  on  side  n,  for  normal  operation,  as  determined  in  Sec¬ 
tion  4.3. 1.1.2  (ksi) 


4.5. 1.2.2  Side  (Vertical)  Stiffeners.  The  effective  portion  of 
the  plate  adjacent  to  the  stiffener  is  subjected  to  both  the  compres¬ 
sive  bending  stress  due  to  the  negative  transverse  loads  and  the  axial 
compressive  stress  due  to  tension  field  action.  The  axial  tensile 
stress  due  to  the  internal  pressure  is  ignored,  as  noted  in  Sec¬ 
tion  4.3. 1-1.2.  The  following  interaction  equation  must  be  satisfied: 


f 

an- 
0.60  F 


<  1.0 


4.5.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 


Forces . 


4.5.2. 1  Positive  Loading. 


^bp+  -  3  ^bp+ 

f  <  0.80  F 
an+  -  yp 


where 


f^p+  =  maximum  effective  plate  tensile  bending  stress  under 
positive  loading,  for  normal  operating  conditions  including  wind  or 
seismic  forces,  as  determined  in  Section  4.2. 1.2  (ksi) 


ISJ 

£ 
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fan+  =  maximum  axial  compressive  stress  in  effective  plate  on 
side  n,  for  normal  operation,  as  determined  in  Section  4.3. 1.1.1  (ksi) 


4. 5. 2. 2  Negative  Loading. 

4. 5. 2. 2.1  Top  and  Bottom  Stiffeners. 
4/3  Fv 


f,  < 

bp- 1  - 

f  I  < 

an-  - 


'bp- 


0.80  F 


yp 


where 


f^  =  maximum  effective  plate  compressive  bending  stress  under 
negative  loading,  for  normal  operating  conditions  including  wind  or 
seismic  forces,  as  determined  in  Section  4.2. 1.2  (ksi) 


=  maximum  axial  stress  due  to  negative  loading  in  effective 
side  n,  for  normal  operation,  as  determined  in  Sec¬ 
tion  4. 3 . 1 . 1 . 2  (ksi) 


an- 

plate  on 


4. 5. 2. 2. 2 
f 

_ + 

0 . 80F 


yp 


Side  (Vertical)  Stiffeners. 


bp- 


<  1.0 


4.5.3  Excursion  Conditions. 


4.5.3. 1 

Positive  Loading. 

f.  < 

F 

bp+  - 

yp 

f  .  < 

F 

an+  - 

where 

yp 

^bp+ 

maximum  effective  plate  tensile  bending  stress  under 

positive  loading,  for  excursion  conditions,  as  determined  in  Sec¬ 


tion  4.2. 1.3  (ksi) 

fan+  =  maximum  axial  compressive  stress  in  effective  plate  on 
side  n,  for  excursion  conditions,  as  determined  in  Section  4.3. 1.2 
(ksi) 
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4. 5. 3. 2  Negative  Loading. 


4. 5. 3. 2.1  Top  and  Bottom  Stiffeners. 

If.  I  <  F 

I  bp-|  -  yp 

If  <  F 
I  an- |  -  yp 

where 


negative  loading,  for  excursion  conditions,  as  determined  in  Sec¬ 
tion  4.2. 1.3  (ksi) 

fan_  =  maximum  axial  stress  due  to  negative  loading  in  effective 
plate  on  side  n,  for  excursion  conditions,  as  determined  in  Sec¬ 
tion  4. 3 . 1 . 2  (ksi) 


4. 5. 3. 2. 2 


an- 


Side  (Vertical)  Stiffeners. 

<  l.o 


yp  yp 


4.6  Maximum  Deflection.  Each  stiffener  is  selected  such  that 
the  maximum  deflection  of  the  combined  stiffener  and  adjacent  effec¬ 
tive  plate  is  limited  to  the  following: 

6  <6  . , 
s,max  -  s,  allow 

where 


6  =  maximum  stiffener  deflection,  as  calculated  in  Sec- 

s,max  ’ 

tions  4.6.1  and  4.6.2  (in.) 

6  ..  =  allowable  stiffener  deflection  (in.) 

s, allow 

=  L  (12  in. /ft. )/D  .. 

n  s, allow 

Ln  =  stiffener  length  on  side  n  (ft.) 

D  ..  =  ratio  of  stiffener  length  to  allowable  stiffener 

s, allow  ° 

deflection,  as  appropriate  for  the  loading  case. 


4.6.1  Simultaneous  Axial  Compression  and  Transverse  Loading. 
Maximum  deflection  of  the  combined  stiffener  and  adjacent  effective 
plate  under  simultaneous  axial  compression  and  transverse  loading  is 
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calculated.  The  equation  for  maximum  deflection, 

36 

Young,  Formulas  for  Stress  and  Strain,  is 

6 


w 


s ,  max 


12  k2P 


n  »— 


1 


cos  (6kL  ) 


2  2 

18k  L  -  1 
n 


where 


from  Roark  and 


w  =  uniformly  distributed  transverse  load,  as  specified  in  Sec¬ 
tion  4.6. 1.1,  4.6. 1.2  or  4.6. 1.3  (plf) 

1/2 


[1,000  EsIfiJ 

Pn  =  axial  compressive  force  in  stiffener  n,  as  specified  in 

Section  4.6. 1.1,  4.6. 1.2  or  4.6. 1.3  (lb) 

E  =  stiffener  modulus  of  elasticity 
s 

I  =  moment  of  inertia  of  combined  stiffener  and  adiacent  effec- 

6  4 

tive  plate,  from  Section  4.1  (in.  ) 


4.6. 1.1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Forces . 

w  =  w  ,  as  determined  in  Section  2.6. 1.1 
n+ 

Pn  =  ^vn>  as  determined  in  Sections  2.6.2. 1.1,  for  top  and  bottom 
stiffeners 

Pn  =  Pvn  +  Pg ,  as  determined  in  Sections  2.6.2. 1.1  and  2. 6. 2. 2, 
resepctively,  for  side  (vertical)  stiffeners 

4.6. 1.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 
Forces . 

w  =  w  ,  as  determined  in  Section  2.6. 1.2 
n+ 

Pn  =  Pvn’  3S  determined  in  Section  2.6.2. 1.1,  for  top  and  bottom 
stiffeners 

Pn  =  Pvn  +  Ps>  as  determined  in  Sections  2.6.2. 1.1  and  2. 6. 2. 2, 
respectively,  for  side  (vertical)  stiffeners 


4.6. 1.3  Excursion  Conditions. 


w  =  w  as  determined  in  Section  2.6. 1.3 
n+’ 

P  =  P  ,  as  determined  in  Section  2.6.2. 1.2,  for  top  and  bottom 
n  vn ’  >  r 

stiffeners 

P  =  P  +  P  ,  as  determined  in  Sections  2.6.2. 1.2  and  2. 6. 2. 2, 
n  vn  s 

respectively,  for  side  (vertical)  stiffeners 


4.6.2  Transverse  Loading  Only.  In  addition  to  the  deflection 
due  to  simultaneous  axial  compression  and  transverse  loading  checked 
in  Section  4.6.1,  the  maximum  deflection  of  the  bottom  stiffener  and 
adjacent  effective  plate  due  to  transverse  negative  loads  only  is 
calculated.  In  this  case,  the  associated  axial  tensile  force  in  the 
bottom  stiffener,  which  tends  to  reduce  the  maximum  deflection,  is 
ignored. 


6 

s  ,max 


5wL  4  /  ..  , 

n  /  1  k 

384  E  I  \ 1,000  lb 
s  e  ' 


( 1,728  in.3  \ 

l  1  ft3  ) 


. 0225wL  4 
n 


where 

w  =  w3->  as  calculated  in  Sections  2.6. 1.1,  2.6. 1.2  or  2.6. 1.3, 
as  appropriate  for  the  loading  case 


4.7  Plate  Girder  Stiffener  Checks.  The  side  (vertical)  stiff¬ 
eners  are  checked  using  the  AISC  plate  girder  stiffener  requirements. 


4.7.1  Moment  of  Inertia  Requirement.  The  AISC  Section  1.10.5.4 
stiffener  moment  of  inertia  requirement  is  checked. 


If  I  < 
w 


12  Ln  ~  LYt  "  LYb 
50 


,  then  a  stiffener  section  with  a 


larger  moment  of  inertia  is  selected, 
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where 

I  =  moment  of  inertia  of  the  vertical  stiffener  with  reference 

W  4 

to  an  axis  in  the  plane  of  the  adjacent  duct  plate  (in.  ) 

=  I  +  A  [(d-y)  +  t/2 ] 2 

S  S  4 

I  =  moment  of  inertia  of  the  vertical  stiffener  (in.  ) 

s  2 
Ag  =  stiffener  cross-sectional  area  (in.  ) 

d  =  stiffener  section  depth  (in.) 

y  =  distance  to  centroidal  axis  of  stiffener  (in.) 

t  =  adjacent  plate  thickness  (in.) 

Ln  =  height  of  side  panel  n,  where  n  =  2  or  4  (ft.) 

Lyt  =  length  of  top  and  bottom  corner  angle  legs  parallel  to 

the  vertical  axis,  respectively  (in.). 


4.7.2  Gross  Area  Requirement.  The  AISC  Section  1.10.5.4  stiff¬ 
ener  gross  area  requirement  is  checked. 


A  > 
s  — 


1  -  C  r  2  — I  F 

_ Y.  a  .  .  a. 

2  2  F 

_  -yi  +  a  J  ys 


( 12Ln  “  LYt  "  LYb) 


where 


C  = 
v 


45,000k 


12Ln  "  LYt  "  LYb 


YP 


-z  when  C  <0.8 
2  v 


when  C  >0.8 
v 


a  = 


12L 


LYt  "  LYb 


s  =  stiffener  spacing  (in.) 

F^  =  plate  yield  stress  (ksi) 

stiffener  yield  stress  (ksi) 


ys 


P  =  2.4  f 


f  =  average  web  shear  stress  (ksi) 
w  L 

=  _ £ _ 

4,000  (12Lq  -  -  L^)  t 

=  uniformly  distributed  load  on  duct  section  due  to  gravity 
loads  as  calculated  in  Section  2. 6. 2. 2  (plf) 

L  =  duct  span  (ft. ) 

F  =  allowable  web  shear  stress  (ksi) 
v 

F 

=  2I89(Cv)  <  0.40  F^  (AISC  Equation  (1.10-1)) 

The  value  of  Fv  calculated  from  AISC  Equation  (1.10-1)  is  more 
conservative  than  that  calculated  from  AISC  Equation  (1.10-2),  but  is 
used  here  because  the  provisions  of  AISC  Section  1.10.5.3  regarding 
the  required  a/h  ratio  may  not  always  be  satisfied,  as  required  for 
use  of  Equation  (1.10-2). 

5.  RIGID  FRAME  STIFFENER  DESIGN 

The  stiffeners  on  the  four  sides  of  the  duct  are  joined  by 
moment-resisting  connections  at  the  duct  corners,  and  analyzed  as  a 
rigid  frame.  The  top  and  bottom  stiffeners  are  designed  to  resist 
combined  transverse  loading  and  axial  loading  from  internal  pressures 
or  vacuums.  The  side  stiffeners  are  designed  to  resist  simultaneous 
transverse  loading  and  axial  loading  due  to  internal  pressures  or 
vacuums  and  tension  field  action  in  the  duct  side  panels.  Stiffeners 
on  all  four  sides  of  the  duct  are  designed  to  have  the  same  nominal 
depth  due  to  insulation  and  lagging  installation  requirements.  Stiff¬ 
ener  spacings  must  be  equal  for  all  four  sides  of  the  duct. 

In  the  following  design  procedure  it  is  assumed  that  the  moduli 
of  elasticity  of  the  duct  plate  and  stiffeners  are  equal.  If  there  is 
a  significant  difference  between  the  two,  stresses  and  deflections 

should  be  calculated  based  on  a  transformed  section  as  described  by 
37 

Timoshenko.  Differing  plate  and  stiffener  yield  stresses  are  accom¬ 
modated  in  the  following  design  procedure. 
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5.1  Transverse  Loading.  The  transverse  loading  on  the  combined 
stiffener  and  adjacent  effective  plate  is  determined  as  shown  in 


Section  2.7. 


5.1.1  Maximum  Bending  Moments.  Trial  stiffener  sections  for 


each  of  the  four  sides  are  selected  and  the  respective  effective 
section  properties  are  calculated  using  the  method  given  in  Sec¬ 


tion  4.1. 


The  maximum  stiffener  moments  for  each  of  the  four  sides  are 


calculated  due  to  the  loading  combinations  specified  in  Section  2.7. 
Nomenclature  is  as  shown  in  Figure  7. 


5. 1.1.1  Stiffener  End  Moment  Calculation. 


General  Slope-Deflection  Equation: 


M  ,  =  M.  ,  +  ^  (2<)>  ,  +  <|>, 

near  end  0,  near  end  1  Tnear  end  far  end 


where 


Mq  =  stiffener  fixed-end  moment 


E  =  modulus  of  elasticity 


I  =  stiffener  moment  of  inertia 


1  =  length  of  stiffener 

4>  =  joint  rotation 


R  =  stiffener  axis  rotation 


Since  the  design  loading  is  symmetrical  about  both  major  axes  of 
the  duct,  there  is  no  stiffener  axis  rotation.  Therefore,  R  =  0  in 


all  cases. 


The  fixed-end  moments  for  the  stiffeners  are  of  the  form  wl  /12. 


w  L 
n  n 


where 


12  in . 
1  ft. 


1  kip 
1,000  lb 


Mq^  =  stiffener  n  fixed-end  moment  (k-in.) 


w  =  uniformly  distributed  transverse  load  on  stiffener  n,  from 
n  * 


Section  2.7,  as  appropriate  for  the  loading  case  (plf) 
L  =  length  of  stiffener  n  (ft.) 


V'.W -.\v 


FIGURE  7 .  STIFFENER  RIGID  FRAME 


The  slope-deflection  equations  for  the  eight  stiffener  end 


moments  are: 


M12  *  -M01  +  Of  <2*1  f  *2* 

M21  =  tM01  *  Of  <2*2  +  V 

M23  =  -M02  +  Of  <2f2  *  *3) 

»32  =  +^02  +  Of  (2*3  *  *2> 

M34  =  -M03  *  Of  «*3  +  *4' 

M43  =  tfl03  +  Of  <2*4  +  *3> 

M41  =  -M04  *  Of  <2*4  * 

4 

M14  =  +M04  +  erf  (24>1  +  ^4} 

4 

In  the  above  equations,  positive  stiffener  end  moments  act  clock¬ 
wise  on  the  stiffener. 

The  joint  equations  are: 

Joint  1:  M,,  +  M,„  =  0 

14  12 

(lei  rel\  'el  'e4  6«0rM04  > 

2  (C  *  =rj  +  *2  *  °  ^  *4  *  — Ep- 

Joint  2:  M^j  +  =  0 

'e.  ,  ,  J'el  ,  I,21\  „  ,  'e2  „  ,  „  _  '’‘Vf'V 

ir*'t2[ir'h)  -L7*3to-— o- 

Joint  3:  M00  +  M„,  =  0 

32  34 

0  Je2  fle2  Te3\  Xe3  _  6(M03"M02} 
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Joint  4:  M.  +  M, ,  =  0 
43  41 

1.4  I.,  /1. 3  I  4\  6<H04-fl03) 

if  *  if  *3  *  *  (sf  *  sf  J  n  -  —^-=3- 

Solving  joint  equations  1  through  4  simultaneously  for  0^  through 


Then  [A]  x  [B]  =  [C]  and  f B]  =  f A] "  x  [Cj. 

0^,  0^,  0^>  and  0^  are  substituted  back  into  the  slope-deflection 
equations  to  find  the  eight  stiffener  end  moments. 

The  maximum  positive  and  negative  moments  for  each  of  the  four 
stiffeners  are  solved  for  as  shown  in  Section  5. 1.1. 2. 


5. 1.1.2  Maximum  Positive  and  Negative  Moments 
From  statics: 


M  =  M. .  + 
x  ij 


3w  L  M. .  .  M. A  3w  x 
n  n  ij  +  Ji\  n 

500  L  500 


where 


M  =  stiffener  moment  at  distance  x  clockwise  from  joint  i 
x  J 


(k-in.).  A  positive  value  of  M^  indicates  that  the  fibers  on  the 


inside  of  the  frame  are  in  tension. 

x  =  distance  clockwise  from  joint  i  (ft.) 


M.  .  =  stiffener  end  moment  at  ioint  i,  as  solved  for  in  Sec- 

ij  J  ’ 


tion  5.1.1  (k-in. ) 


M^  =  stiffener  end  moment  at  joint  j,  where  joint  j  is  the  joint 


adjacent  to  and  clockwise  from  joint  i,  as  solved  for  in  Section  5.1.1 
(k-in. ) 


M^  is  evaluated  at  specified  intervals  along  the  stiffener  and 


the  maximum  positive  and  maximum  negative  moments  in  the  stiffener, 
max+  max- 


M  .  and  M  ,  are  determined. 
-  ma v- 1 


5.1.2  Maximum  Bending  Stresses.  Maximum  stresses  due  to  bending 
moments  in  the  stiffeners  and  adjacent  effective  plate  are  calculated. 


M  .  (d-y') 
max+  3 


bst+ 


M  .  y' 
max+  3 


bsc+ 


M  .  (d+t-y') 
max+  3 


bp+ 


M  y' 
max-  ' 


bst- 


M  (d-y') 
max-  3 


bsc- 


M  (d+t-y') 
max-  3 


bp- 
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where 

fb  =  maximum  stiffener  tensile  bending  stress  due  to  positive 
moment  (ksi) 

^bsc+  =  max-'-mum  stiffener  compressive  bending  stress  due  to  posi¬ 
tive  moment  (ksi) 

fbp+  =  maximum  effective  plate  tensile  bending  stress  due  to 
positive  moment  (ksi) 

fb  =  n^ximum  stiffener  tensile  bending  stress  due  to  negative 
moment  (ksi) 

^bsc-  =  maximum  stiffener  compressive  bending  stress  due  to  nega¬ 
tive  moment  (ksi) 

fbp_  =  maximum  effective  plate  compressive  bending  stress  due  to 
negative  moment  (ksi) 

M  ,  =  maximum  positive  moment  in  the  stiffener,  as  calculated 
in  Section  5. 1.1.2  (k-in.) 

M  =  maximum  negative  moment  in  the  stiffener,  as  calculated 
max- 

in  Section  5. 1.1.2  (k-in.) 

d  =  depth  of  stiffener  section  (in.) 

y'  =  distance  to  effective  centroidal  axis,  as  calculated  in 

Section  4.1  (in. ) 

I  =  moment  of  inertia  of  combined  stiffener  and  adjacent 

6  4 

effective  plate,  as  calculated  in  Section  4.1  (in.  ) 

t  =  adjacent  plate  thickness  (in.) 


5.1.3  Allowable  Bending  Stresses.  The  allowable  bending 
stresses  Fbst+,  Ffep+,  Ffast_,  Fbgc_,  and  Fbp_  are  calculated  using  the 
procedure  given  in  Section  4.2.2. 

The  allowable  bending  stress  Fbgc+  is  calculated  using  the  pro¬ 
cedure  given  in  Section  4.2.2. 1.3.2,  with  the  following  modification: 

If  ln/ 1 2  <  (intermediate  compression  flange  bracing  provided): 

Cb  =  1-° 

(There  is  no  change  to  the  equations  given  in  Section  4.2.2. 1.3.2 
for  this  case . ) 
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If  1 n/ 1 2  =  (no  intermediate  compression  flange  bracing),  when 
applying  AISC  Equations  (1.5-6a),  (1.5-6b),  and  (1.5-7), 

Cb  =  1.75  +  1.05  (M  /M2)  +  0.3  (Mj^)2  <  2.3 

where  M^  is  the  smaller  absolute  value  and  is  the  larger  absolute 
value  stiffener  end  moment.  Clockwise  end  moments  are  positive  and 
counterclockwise  end  moments  are  negative.  If  the  bending  moment  at 

any  point  between  the  ends  of  the  stiffener  is  greater  than  both 

stiffener  end  moments,  C^  =  1.0. 

5.2  Axial  Loading.  The  axial  loading  on  the  combined  stiffener 

and  adjacent  effective  plate  is  determined  as  shown  in  Section  2.7. 


5.2.1  Maximum  Axial  Stress.  Axial  compressive  stresses  are 
positive.  Axial  tensile  stresses  are  negative. 


f  =  t— 
an  A 

e 


:  fr 


lk 


000  lb 


where 


f  =  maximum  axial  compressive  or  tensile  stress  in  stiffener 
an  r 

and  adjacent  effective  plate  on  side  n  (ksi) 

P  =  axial  force  in  stiffener  n,  as  calculated  in  Section  2.7 

(lb) 

A  =  area  of  combined  stiffener  and  adjacent  effective  plate,  as 
e  2 

calculated  in  Section  4.1  (in.  ). 


I 


5.2.2  Allowable  Axial  Compressive  Stress.  The  allowable 
compressive  stress  in  the  absence  of  bending  moment  for  the 
stiffener  section  and  adjacent  effective  plate  is  determined  as 
in  Section  4.3.2,  except  that  the  effective  length  factor  is 
as  1.2  (from  AISC  Table  Cl. 8.1,  Case  ( c ) )  . 


axial 

trial 

shown 

taken 


5.3  Trial  Section  Determination.  For  simplicity  in  design  and 
fabrication,  all  intermediate  stiffeners  on  any  one  side  of  a  section 
of  ductwork  are  of  identical  size,  and  are  designed  to  resist  the 
axial  forces  due  to  tension  field  action  and/or  internal  pressure  or 
vacuum,  and  the  transverse  loading  appropriate  for  the  loading  case. 
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All  intermediate  stiffeners  on  all  sides  of  a  section  of  ductwork  are 
designed  to  have  the  same  nominal  depth. 


5.3.1  Simultaneous  Axial  Compression  and  Transverse  Loading. 
The  trial  stiffener  section  must  satisfy  the  provisions  of  Sec¬ 
tions  5.3. 1.1,  5.3. 1.2,  and  5.3. 1.3  following  for  all  loading  cases  in 
which  the  stiffener  is  subjected  to  simultaneous  axial  compression  and 
transverse  loading. 

5 . 3  .  1 .  1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Effects . 


an 


5.3. 1.1.1  Negligible  Axial  Stress.  If  - —  <  0.15,  AISC  Formul 

a 

(1.6-2)  is  used. 


5 . 3 . 1 . 1 .  1 . 1  Maximum  Positive  Moment . 
f  f .  . 

=iS  ,  i?sc+  < 

F  F.  - 

a  bsc+ 

where 

f"an  =  maximum  axial  compressive  stress  in  stiffener  and  adja¬ 
cent  effective  plate  on  side  n,  as  determined  in  Section  5.2.1  (ksi) 
fa  =  allowable  axial  compressive  stiffener  stress  in  the 
absence  of  bending  moment,  as  determined  in  Section  5.2.2  (ksi) 

^bsc+  =  max^ITmm  stiffener  compressive  bending  stress  due  to  maxi¬ 
mum  positive  moment,  for  normal  operation  excluding  wind  and  seismic 
forces,  from  Section  5.1.2  (ksi) 

^bsc+  =  a^owa^e  stiffener  compressive  bending  stress  due  to 
positive  moment  in  the  absence  of  axial  force,  from  Section  5.1.3 
(ksi) . 


5.3.1 

f 

an 


a 


I 


1.1.2  Maximum  Negative 
f. 

KT-I 

<  1.0 


'  bsc- 


b  s  c  - 


Moment . 


where 


^bsc-  =  max^mum  stiffener  compressive  bending  stress  due  to 
maximum  negative  moment,  for  normal  operation  excluding  wind  and 
seismic  forces  from  Section  5.1.2  (ksi). 

^bsc-  =  a^owa^e  stiffener  compressive  bending  stress  due  to 
negative  moment  in  the  absence  of  axial  force  from  Section  5.1.3 
(ksi) . 


f 

an 

5.3. 1.1.2  Significant  Axial  Stress.  If  p — -  >  0.15,  the  stiffener 
section  is  checked  using  AISC  Formulas  (1.6-la)  and  (1.6-lb). 


5.3.1. 1.2.1  Maximum  Positive  Moment. 

1.0  (AISC  Equation  (1.6-la)) 

only  in  the  direction  normal  to  the  duct 

plate . ) 

where  (AISC  Section  1.6.1,  Case  1) 


an 


C  f,  . 
m  bsc+ 


1  - 


an 

F’ 

e 


"bsc+ 

(Buckling  is  possible 


C  =0.85 
m 

12n2  E 

F-  =  - L_ 

6  23  (Klb/rb)2 

K  =  1.2  (AISC  Table  Cl. 8.1,  Case  (c),  which  represents  a  conser¬ 
vative  idealization  of  the  side  stiffeners.) 


1.  =  L  (12  in. /ft.) 
bn 

I  =  moment  of  inertia  of  combined  stiffener  and  adjacent  effec- 

6  4 

tive  plate,  from  Section  4.1  (in.  ) 

A  =  area  of  combined  stiffener  and  effective  plate,  as  calcu- 

®  2 
lated  in  Section  4.1  (in.  ) 

=  length  of  stiffener  n  (ft.) 


5.3.1. 1.2.2  Maximum  Negative  Moment. 


.85  f 


bsc- 


'  bsc- 


<  1.0 


(AISC  Equation  (1.6-la)) 


5.3.1. 1.2.3  Stiffener  End  Checks.  The  stiffener  section  is 


checked  using  AISC  Formula  (1.6-lb). 
At  Joint  i: 


If  M„  is  positive  (clockwise): 


an 


M.  .  y' 

1  -l  J 


0.60  F  IF, 

ys  e  bsc+ 


<  1.0 


If  M^.  is  negative  (counterclockwise): 

f  M. .(d  -  y') 

-  -  <  1.0 


an 


0.60  F 


ys 


1  fk 

e  bsc- 


At  Joint  j : 
s 
f 


If  M^  is  positive  (clockwise): 


an 


0.60  F 


M . . (d  -  y' ) 
ji  J 


ys 


I  K 

e  bsc- 


<  1.0 


If  M^  is  negative  (counterclockwise) 


an 


M .  .y' 


0.60  F 


JJl 


where 


ys 


1  Fk  ^ 
e  bsc+ 


<  1.0 


M  „  ,  i  =  stiffener  en^  moments  at  Joints  i  and  j,  respectively, 
due  to  normal  operation  excluding  wind  and  seismic  forces,  where  end 
moments  are  calculated  using  procedure  given  in  Section  5. 1.1.1. 
(Joint  j  is  the  joint  adjacent  to  and  clockwise  from  Joint  i.) 
(k-in. ) 


5.3. 1.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 

Forces.  Allowable  stresses  F  ,  F,  ..  F,  ,  0.60  F  ,  and  F'  are 
-  a’  bsc+  bsc-  ys ’  e 

increased  by  1/3  in  accordance  with  AISC  Sections  1.5.6  and  1.6.1. 
The  following  forms  of  the  AISC  formulas  reflect  this  change. 


5.3. 1.2.1  Negligible  Axial  Stress.  If  ^ —  <  0.15, 

mula  (1.6-2)  is  used. 


5.3. 1.2. 1.1  Maximum  Positive  Moment. 

3  f  3  f, 

an  +  __bsc+  < 


4  F 


4  F 


bsc+ 


where 


AISC  For- 


^bsc+  =  maximum  stiffener  compressive  bending  stress  due  to 
maximum  positive  moment,  for  normal  operation  including  wind  or 
seismic  forces,  from  Section  5.1.2  (ksi) 


5.3. 1.2. 1.2  Maximum  Negative  Moment. 


3  f 


an 


3  f. 


bsc- 


4  F 


4  F 


<  1.0 


bsc- 


where 


fbsc_  =  maximum  stiffener  compressive  bending  stress  due  to 
maximum  negative  moment,  for  normal  operation  including  wind  or 
seismic  forces,  from  Section  5.1.2  (ksi) 

3  f 

o  fl 

5.3. 1.2.2  Significant  Axial  Stress.  If  —  >  0.15,  the  stiff- 

a 

ener  section  is  checked  using  AISC  Formulas  (1.6-la)  and  (1.6-lb). 


5.3. 1.2.2. 1  Maximum  Positive  Moment. 


3  f 


an 


0.6375  f 


bsc+ 


4  F 


3  f 


<  1.0 


1  - 


an 


4  F' 
e 


'  bsc+ 


5.3. 1.2. 2. 2  Maximum  Negative  Moment 
3  f  0.6375  |fu  I 
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■nV) 


KV> 


1 


§ 


V1 


5.3. 1.2. 2. 3  Stiffener  End  Checks.  The  stiffener  section  is 


checked  using  AISC  Formula  (1.6- lb) 
At  Joint  i: 


If  M..  is  positive  (clockwise): 
ij 

f  3  M. .  y’ 

an  ij 


0.80  F 


ys 


4  I  F,  . 
e  bsc+ 


<  1.0 


If  M..  is  negative  (counterclockwise): 

f  3  M. .  (d  -  y’) 

-  <  1.0 


an 


0.80  F 


At  Joint  j : 


ys 


4  I  F, 
e  bsc- 


If  is  positive  (clockwise): 

f  3  M..  (d  -  y’) 

+  -  <  i.o 


an 


0.80  F 


ys 


4  I  F, 
e  bsc- 


If  IT  ^  is  negative  (counterclockwise): 
f  3  M. .  y’ 

<  1.0 


an 


0.80  F 


where 


ys 


4IF.  , 
e  bsc+ 


^ ^  =  stiffener  end  moments  at  Joints  i  and  j,  respectively, 


due  to  normal  operation  including  wind  or  seismic  forces,  where  end 
moments  are  calculated  using  procedure  given  in  Section  5. 1.1.1. 
(Joint  j  is  the  joint  adjacent  to  and  clockwise  from  Joint  i.)  (k-in.) 


5.3. 1.3 


Excursion  Vacuum  or  Pressure  Conditions. 


For 


loading  case,  the  allowable  stresses  F  ,  F,  ^ ,  F, 

°  ’  a’  bsc+’  bsc- 


and  0.60  F 


ys 


this 

are 


increased  by  2/3  or  set  equal  to  the  yield  stress,  whichever  is  less. 


F'  is  increased  by  23/12.  These  adjustments  are  included  in  the 


following  forms  of  AISC  Equations  (1.6-la),  (1.6-lb)  and  (1.6-2). 


3  f 


r\  n 

5. 3. 1.3.1  Negligible  Axial  Stress.  If  ^ —  <  0.15,  AISC  For- 

a 

mula  (1.6-2)  is  used. 
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5. 3. 1.3. 1.1  Maximum  Positive  Moment. 
3  f 


an  +  <  li0 


5  F  F' 

a  rbsc+ 


where 

^bsc+  =  maximum  stiffener  compressive  bending  stress  due  to 
maximum  positive  moment,  for  excursion  conditions,  from  Section  5.1.2 
(ksi) 


F'  =  5/3  F,  A  <  F 
bsc+  bsc+  -  ys 


5.3. 1.3. 1.2  Maximum  Negative  Moment. 


3  f  f, 

an  +  bs^  <  1>Q 


5  F 


where 


ys 


f,  =  maximum  stiffener  compressive  bending  stress  due  to 


bsc- 


maximum  negative  moment,  for  excursion  conditions,  from  Section  5.1.2 
(ksi) 

3  f 

^  n 

5.3. 1.3.2  Significant  Axial  Stress.  If  — -  >  0.15,  the  stiff¬ 


ener  section  is  checked  using  AISC  Formulas  (1.6-la)  and  (1.6-lb) 


5 . 3 . 1 . 3 . 2 . 1  Maximum  Positive  Moment. 
3  f 


an 


0.85  f 


bsc+ 


5  F 


12  f 


<  1.0 


1  - 


an 


23  F' 
e 


F' 

bsc+ 


5.3. 1.3. 2. 2  Maximum  Negative  Moment. 


3  f 


an 


0.85  f 


bsc- 


5  F 


12  f 


<1.0 


1  - 


an 


23  F' 
e 


ys 


5.3. 1.3. 2. 3  Stiffener  End  Checks.  The  stiffener-  section  is 


checked  using  AISC  Formula  (1.6-lb). 


At  Joint  i: 


If  is  positive  (clockwise): 


an 


M.  .y’ 


where 


ys 


I  F' 
e  bsc+ 


<  1.0 


^bsc+  as  defined  in  Section  5. 3. 1.3. 1.1. 


If  is  negative  (counterclockwise): 

f  M .  .  (d  -  y’  ) 
an  ij  * 

F  I  F 

ys  e  ys 


<  1.0 


At  Joint  j : 


If  is  positive  (clockwise): 
f__  M. .  (d  -  y') 


an 


Ji. 


ys 


I  F 
e  ys 


<  1.0 


If  M. .  is  negative  (counterclockwise): 

M . .  y ' 
an  j  i  J 

F  "IF* 
ys  e  bsc+ 


<  1.0 


where 


IF.,  M.^  =  stiffener  end  moments  at  Joints  i  and  j,  respectively, 
due  to  excursion  vacuum  or  pressure  conditions,  where  end  moments  are 
calculated  using  the  procedure  given  in  Section  5. 1.1.1.  (Joint  j  is 
the  joint  adjacent  to  and  clockwise  from  Joint  i.)  (k-in.) 


5.3.2  Simultaneous  Axial  Tension  and  Transverse  Loading.  The 
trial  stiffener  section  must  satisfy  the  provisions  of  Sections 
5.3.2. 1,  5. 3. 2. 2  and  5. 3. 2. 3  following  for  all  loading  cases  in  which 
the  stiffener  is  subjected  to  simultaneous  axial  tension  and  trans¬ 
verse  loading. 


5.3.2. 1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Effects . 


f 

an 


0.60  F 

ys 


+ 


^bst+ 

F 

bst+ 


<  1.0 


(AISC  Formula  (1.6-lb)) 
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an 


0.60  F 


ys 


bst-| 
"  bst- 


<  1.0 


(AISC  Formula  (1.6-lb)) 


^bsc+  —  ^bsc+ 

If.  I  <  F, 

|  bsc-|  -  bsc- 

where 

f  =  maximum  axial  tensile  stress  in  stiffener  and  adiacent 
an  J 

effective  plate  on  side  n,  as  determined  in  Section  5.2.1  (ksi) 

Fys  =  stiffener  yield  stress  (ksi) 

f^  =  maxiraum  stiffener  tensile  bending  stress  due  to  maximum 
positive  moment,  for  normal  operation  excluding  wind  and  seismic 

forces,  from  Section  5.1.2  (ksi) 

^bst+  =  a^owa^e  stiffener  tensile  bending  stress  due  to  posi¬ 
tive  moment  in  the  absence  of  axial  force,  from  Section  5.1.3  (ksi) 
fbst_  =  maximum  stiffener  tensile  bending  stress  due  to  maximum 
negative  moment,  for  normal  operation  excluding  wind  and  seismic 

forces,  from  Section  5.1.2  (ksi) 

Fbsf  =  allowable  stiffener  tensile  bending  stress  due  to  nega¬ 
tive  moment  in  the  absence  of  axial  force,  from  Section  5.1.3. 

f.  .  ,  F,  .  ,  f.  and  F,  are  as  defined  in  Section  5.3.1 

bsc+  bsc+  bsc-  bsc- 


5. 3. 2. 2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 

Effects.  Allowable  stresses  0.60F  ,  F,  .  .  ,  F,  .  ,  F.  .  .  and  F, 

-  ys ’  bst+’  bst-’  bsc+’  bsc- 

are  increased  by  1/3  in  accordance  with  AISC  Section  1.5.6. 
f  3  f, 

q  gQ11^ —  +  ^  p  S —  £  1.0  (AISC  Formula  (1.6-lb)) 

ys  rbst+ 


f 

an 


0.80  F 

ys 


+ 


3  f 

4~7 


bst- 

bst- 


<  1.0 


(AISC  Formula  (1.6-lb)) 


f  <  -  F 

bsc+  -  3  bsc+ 

i  i  4 

f  <  -  F 

bsc-|  —  3  bsc- 


f.  .  ,  f,  ,  f,  ,  ,  and  f,  are  determined  as  shown  in  Sec- 

bst+’  bst-’  bsc+’  bsc- 

tion  5.1.2,  under  normal  operation  including  wind  or  seismic  forces. 


5. 3. 2. 3  Excursion  Vacuum  or  Pressure  Conditions.  For  this 
loading  case,  the  allowable  stresses  0.60  F^s,  F^st+»  ^bst-’  ^bsc+  an<^ 
Fbsc  are  increased  by  2/3  or  set  equal  to  the  yield  stress,  whichever 


is  less. 

f 

f. 

an 

4_ 

bst+ 

F 

T 

F  - 

ys 

ys 

f 

If,  1 

an 

+ 

|  bst-| 

F 

F 

ys 

ys 

If. 

1  <  F 

|  bsc- 

1  -  ys 

<  1.0 


<  1.0 


f  <  F' 

bsc+  -  bsc+ 

where 

F'  =  f  F,  .  <  F 

bsc+  3  bsc+  -  ys 

f,  f,  .  ,  f,  and  f,  £ 

bst+  bst-’  bsc+’  bsc- 

tion  5.1.2,  under  excursion  conditions. 


(AISC  Formula  (1.6-lb)) 


(AISC  Formula  (1.6-lb)) 


are  determined  as  shown  in  Sec- 


5.4  Maximum  Plate  Stress.  If  the  plate  yield  stress,  F  ,  is 

-  v  yp* 

less  than  the  stiffener  yield  stress,  F  ,  the  maximum  combined  com¬ 
pressive  axial  and  bending  stresses  in  the  effective  portion  of  the 
plate  adjacent  to  the  stiffener  are  checked.  If  any  of  the  require¬ 
ments  of  Section  5.4.1  or  5.4.2  are  not  satisfied,  a  stiffener  section 
with  a  larger  section  modulus  is  selected. 

5.4.1  Simultaneous  Axial  Compression  and  Transverse  Loading . 
The  provisions  of  Sections  5.4. 1.1,  5.4. 1.2,  and  5.4. 1.3  must  be 
satisfied  for  all  loading  cases  in  which  the  effective  portion  of  the 
plate  adjacent  to  the  stiffener  is  subjected  to  stresses  caused  by 
simultaneous  axial  compression  and  transfer  loading. 


I 


5.4. 1.1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 


Effects . 


0.60  F 


<  1.0 


fbp+  -  Fbp+ 


where 

f  =  maximum  axial  compressive  stress  in  effective  plate  on 
side  n,  as  determined  in  Section  5.2.1  (ksi) 

F  =  plate  yield  stress  (ksi) 

yp 

f^p_  =  maximum  effective  plate  compressive  bending  stress  due  to 
negative  moment,  for  normal  operation  excluding  wind  and  seismic 

forces,  as  determined  in  Section  5.1.2  (ksi) 

F^_  =  allowable  effective  plate  bending  stress  due  to  negative 
moment  in  the  absence  of  axial  force,  from  Section  5.1.3  (ksi) 

f^p+  =  maximum  effective  plate  tensile  bending  stress  due  to 
positive  moment,  for  normal  operation  excluding  wind  and  seismic 

forces,  as  determined  in  Section  5.1.2  (ksi) 

F^+  =  allowable  effective  plate  bending  stress  due  to  positive 
moment  in  the  absence  of  axial  force,  from  Section  5.1.3  (ksi) 

5.4. 1.2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 

Effects . 

f  3  If,  I 

_ in _  +  I  bP-l  <  j  o 

0.80  F  4  F,  -  u 
YP  bp- 

f  <  -  F 
bp+  -  3  bp+ 

In  the  above  formulas,  f,  and  f,  ,  are  calculated  as  shown  in 

’  bp-  bp+ 

Section  5.1.2,  for  normal  operation  including  wind  or  seismic  forces. 


5.4. 1.3  Excursion  Conditions, 
f  f  i 

JS  ♦  <  !.o 

F  F  - 

yp  yp 

f,  .  <  F 
bp+  -  yp 


'►**/*.  V*W'V' ^ »  S  a"*’  ^  mV  - 


In  the  above  formulas,  f,  and  f, 

’  bp-  bp+ 

Section  5.1.2,  for  excursion  conditions. 


are  calculated  as  shown  in 


5.4.2  Simultaneous  Axial  Tension  and  Transverse  Loading.  The 
provisions  of  Sections  5. 4. 2.1,  5. 4. 2. 2,  and  5. 4. 2. 3  must  be  satisfied 
for  all  loading  cases  in  which  the  effective  portion  of  the  plate 
adjacent  to  the  stiffener  is  subjected  to  stresses  caused  by  simul¬ 
taneous  axial  tension  and  transverse  loading. 


5.4.2. 1  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic 
Effects . 


If  f .  , 

_ an _  bp+ 

0 . 60  F  F, 


<  1.0 


'yp  bp+ 


where 


f,  <  F, 
bp-  -  bp- 


f  =  maximum  axial  tensile  stress  in  effective  plate  on  side  n, 
an 


as  determined  in  Section  5.2.1. 


fbp+  =  maximum  effective  plate  tensile  bending  stress  due  to 


positive  moment,  for  normal  operation  excluding  wind  and  seismic 
forces,  as  determined  in  Section  5.1.2  (ksi) 


f^  =  maximum  effective  plate  compressive  bending  stress  due  to 


negative  moment,  for  normal  operation  excluding  wind  and  seismic 
forces,  as  determined  in  Section  5.1.2  (ksi) 


5. 4. 2. 2  Normal  Operating  Conditions,  Including  Wind  or  Seismic 


Effects . 


In  the  above  formulas,  f,  ,  and  f,  are  calculated  as  shown  in 

’  bp+  bp- 


Section  5.1.2,  for  normal  operation  including  wind  or  seismic  forces. 


5. 4. 2. 3  Excursion  Conditions. 


**<u 

Fyp  - 


f.  <  F 

bp-  -  yp 


In  the  above  formulas,  f,  ,  and  f,  are  calculated  as  shown  in 

’  bp+  bp- 


Section  5.1.2,  for  excursion  conditions. 


5.5  Maximum  Deflection.  Each  stiffener  is  selected  such  that 


the  maximum  deflection  of  the  combined  stiffener  and  adjacent  effec¬ 
tive  plate  is  limited  to  the  following. 


6  <  6  .. 

s,max  -  s, allow 


where 


5  =  maximum  stiffener  deflection,  as  calculated  in  Sec- 

s,max  ’ 

tions  5.5.1  and  5.5.2  (in.) 


6  =  allowable  stiffener  deflection  (in.) 

s, allow 


=  L  (12  in. /ft)/D  ,, 
n  '  "  s, allow 


Ln  =  stiffener  length  on  side  n  (ft) 


Ds  a^^ow  =  ratio  of  stiffener  length  to  allowable  stiffener 
deflection,  as  appropriate  for  the  loading  case. 


5.5.1 


Simultaneous  Axial  Compression  and  Transverse  Loadint 


The  effect  of  the  axial  compressive  force  on  the  maximum  stiffener 
deflection  must  be  considered  when  the  stiffener  is  subjected  to 
simultaneous  axial  compression  and  transverse  loads.  The  stiffener 
deflections  may  be  solved  for  by  evaluating  separately  and  then  com¬ 


bining  the  two  loading  cases  shown  in  Figure  8.  This  approach  is 

38 

presented  by  Roark  and  Young. 


‘."v  *.■  vav.  .w-  i.’*  j  ~-yr  v.’ 


mvivri 


FIGURE  8.  MODIFIED  SUPERPOSITION  OF  STIFFENER  LOADING 


Loading  A  in  Figure  7  matches  Table  10,  Case  2e,  in  Formulas  for 
39 

Stress  and  Strain: 


5  .  =  - ^ —  [tan  (6kL  )  sin  (12kx)  +  72  k  x  +  cos  (12kx)  -  1] 

sxa  12k^p  n 

n 

6w  L  x 
n  n 

P 

n  40 

Loading  B  in  Figure  7  matches  Table  10,  Case  3e: 


103M. . 
l.l 


sm  (12kx)  ,  x  i 

7 - s  -  cos  (12kx)  -  7—  +  1 

tan  (12kL  )  L 

n  n 


103M. . 
1 1 


sin  (12kx)  _  x_ 

sin  (12kL  )  L 
n  n 


Combining  the  two  loading  cases: 
^sx  ^sxA  +  ^sxB 


where 

6  =  stiffener  deflection  at  distance  x  clockwise  from  Joint  i 

sx 

(in. ) 

x  =  distance  clockwise  from  Joint  i  (ft.) 

w^  =  uniformly  distributed  transverse  load  on  stiffener  n,  from 
Section  2.7,  as  appropriate  for  the  load  case  (plf) 

P^  =  axial  compressive  force  in  stiffener  n,  as  calculated  in 


Section  2.7  (lb) 


3 

10 I 
s  e 

Eg  =  stiffener  modulus  of  elasticity  (ksi) 

I  =  moment  of  inertia  of  combined  stiffener  and  adiacent  effec- 

e  4 

tive  plate  from  Section  4.1  (in.  ) 

M..,  M..  =  stiffener  end  moments  at  Joints  i  and  j,  respectivelv, 
ij  Ji  F 

where  Joint  j  is  the  joint  adjacent  to  and  clockwise  from  Joint  i, 
calculated  as  discussed  below  (k-in.) 
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I 


M.  .  and  M..  are  calculated  using  the  method  given  in  Sec- 
ij  Ji  6 

tion  5. 1.1.1,  except  that  ,  the  fixed  end  moment  for  stiffener  n, 

0n  41 

is  calculated  using  the  following  equation: 


12,000  k 


tan  (6kL  ) 
n_ 


is  evaluated  at  specified  intervals  along  the  stiffener  and 

the  maximum  deflection,  6  ,  is  determined. 

s,max 

5.5.2  Simultaneous  Axial  Tension  and  Transverse  Loading .  The 
effect  of  axial  tension,  which  tends  to  reduce  the  stiffener  deflec¬ 
tion,  is  ignored,  and  only  the  deflection  due  to  transverse  loads  is 
calculated  for  stiffeners  subjected  to  simultaneous  axial  tension  and 

transverse  loads.  The  stiffener  deflection  is  calculated  using  a  form 

42 

of  the  equations  given  by  Hughes  and  Gaylord. 


0.072  w  x 

„  .  n  (L  3 
El  n 

s  e 


,  >  24  M. .x 

2L  x  +  x  )  +  ■  ^  (L  -  x)  (2L  -  x) 

n  L  E  I  n  n 

n  s  e 


24  M..L  x  2 

- JUL  n  .  JL.) 

E  I  u  r2J 
s  e  L 

n 

where  nomenclature  is  as  given  in  Section  5.5.1,  except  that  IL  and 

M j  ^  are  calculated  as  shown  in  Section  5. 1.1.1,  including  calculation 

of  the  fixed-end  moments  as  shown  in  Section  5. 1.1.1. 

is  evaluated  at  specified  intervals  along  the  stiffener  and 

the  maximum  deflection,  5  ,  is  determined. 

s,max 

5.6  Plate  Girder  Stiffener  Checks.  The  AISC  1.10.5.4  stiffener 
moment  of  inertia  and  gross  area  requirements,  as  given  in  Sec¬ 
tion  4.7,  are  checked. 


■  v  ,•  v.  «*.  /  .  .-  ■r.  *■.  <■. 

•  j  <  "j  '.'  V  “  ^ 


viv'v; 


‘.T\*  «  *  v  *  •  ' 

yv\-  v  .  ■-*  v 


6. 


DUCT  SECTION  CHECKS 


6.1  Effective  Compression  Flange  Width  and  Stress.  The  reduced 
effective  compression  flange  width  and  the  associated  flange  compres¬ 
sive  stress  are  calculated  using  the  six  step  procedure  below.  Nomen¬ 
clature  is  as  shown  in  Figure  9. 

1.  A  value  for  f  is  assumed,  where  f  =  computed  compressive 
stress  in  the  duct  compression  flange  based  on  a  reduced 
effective  compression  flange  width  (ksi). 

2.  bg,  the  reduced  effective  compression  flange  width,  in 
inches,  is  calculated. 

<  b  (AISC  Equation  (C3-1)) 

where 


253t  r 


be  - 


1  - 


50.3 


(b/tc) 


t  =  plate  thickness  of  duct  panel  which  is  in  compression  (in.) 
b  =  actual  width  of  stiffened  compression  element;  clear  dis¬ 
tance  between  compression  corner  angles  (in.) 

f  =  computed  compressive  stress  in  the  duct  compression  flange 
based  on  the  reduced  effective  compression  flange  width  (ksi) 

3.  The  duct  section  effective  neutral  axis  location,  y" ,  is 


calculated  as 

follows 

• 

Let  A  = 

(H  + 

h  + 

B  = 

(H  + 

h + 

t3) 

l2 

C  = 

(LX1 

+  b 

e 

+ 

D  = 

(t4  + 

W  + 

t2') 

b3 

E  =  ALl(tl  *  yLl) 
F  =  Al2(tl  +  yL2^ 


0  *  (tl  +  "  ♦  t3)  | 
M  =  (t,  +  H  +  t„)  i 


CORNER  ANGLE  3  (TYPICAL) 


FIGURE  9 .  EFFECTIVE  DUCT  CROSS  SECTION 
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N  =  (tj  +  H  +  f-  )D 


then  y"  = 


where 


Q  AL4^1  +  H  yL4^  +  AL3  ^1  +  H  yL3^ 

_ E  +  F  +  G  +  M  +  N  +  Q _ 

A+B+C+D+  AL1  +  AL2  +  AL3  Al4 


=  length  of  horizontal  leg  of  corner  angle  m  (in.) 

=  vertical  distance  from  exterior  face  of  horizontal  leg  to 
centroid  of  corner  angle  m  (in.) 

2 

A^m  =  cross-sectional  area  of  corner  angle  m  (in.  ) 

H  =  vertical  dimension  of  rectangular  duct  cross  section;  from 
inside  surface  to  inside  surface  of  top  and  bottom  duct  plates  (in.) 

W  =  horizontal  dimension  of  rectangular  duct  cross  section;  from 
inside  surface  to  inside  surface  of  side  duct  plates  (in.) 

4.  The  effective  moment  of  inertia  of  the  duct  section,  1^  , 
based  on  the  reduced  effective  compression  flange  width,  is 
calculated . 

*  12  (t2  +  V  *  H  +  V3 

+  (A  +  B)  y"  -  \  (tj  +  H  +  t3)  2 

+  C  (y"  -  2^)2  +  D  (tj  +  H  +  y-  -  y")2 
+  XL1  +  lL2  +  IL3  +  ZL4 

+  AL1  (y"  -  tl  -yL1)  +  AL2  (y"  tl  yL2) 

*  AL3  (tl  +  H  '  ^L3  -  ^  +  AU  <‘l  +  H  -  Hu  -  y">2 

where 

IT  =  moment  of  inertia  about  horizontal  axis  of  corner  angle  m 
,  Lm 

(in.4) 

5.  The  compressive  stress  in  the  duct  compression  flange,  f, 
based  on  the  reduced  effective  compression  flange  width  is 
calculated . 


m 
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mcl  y 


0.0015  w  L  y" 


where 

Mcl  =  moment  at  center  span  of  duct  due  to  gravity  loads 

w^  =  uniformly  distributed  load  on  duct  section  due  to  gravity 
loads,  from  Section  2. 6. 2. 2  (plf) 

L  =  duct  clear  span  (ft.) 

y"  =  distance  from  effective  neutral  axis  to  extreme  compression 
fiber,  from  Step  3  (in.) 

4 

I,  =  effective  moment  of  inertia  (in.  ) 
be 

6.  The  value  of  f  computed  in  Step  5  is  compared  with  the  value 
of  f  assumed  in  Step  1.  If  they  differ  by  more  than  0.005 
ksi,  a  revised  value  of  f  is  selected  and  Steps  1  through  6 
are  repeated. 


6.2  Reduced  Allowable  Flange  Stress.  The  reduced  allowable 
flange  stress  is  calculated  from  AISC  Section  1.10.6. 


F'  =  0.60F  1.0  -  0.0005 

b  yp 


H(t2  +  V  f  H  ~  L 

W  t,  , 


'  0 . 60F 


(From  AISC  Formula  (1.10-5)) 


where 


F  =  duct  plate  yield  stress  (ksi) 
yp 

H  =  vertical  dimension  of  rectangular  duct  cross  section;  from 
inside  surface  to  inside  surface  of  top  and  bottom  duct  plates  (in.) 

t  =  duct  plate  thickness  of  side  n  (in.) 
n  r 

t  =  lesser  of  t^  or  t^  (side  duct  plate  thicknesses)  (in.) 

W  =  horizontal  dimension  of  rectangular  duct  cross  section; 

from  inside  surface  to  inside  surface  of  duct  side  plates  (in.) 

Lyt>  I*Yb  =  len8t^  of  top  and  bottom  corner  angle  legs  parallel  to 
the  vertical  axis,  respectively  (in.) 

F^  =  reduced  allowable  bending  stress  in  the  duct  compression 
flange  (ksi) 
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If  f  >  F^,  the  duct  side  plate  thicknesses  are  increased,  the 
size  of  the  corner  angles  are  increased,  or  the  duct  dimensions  are 
modified  to  provide  a  greater  effective  section  modulus. 


6.3  Compression  Flange  Vertical  Buckling.  From  AISC  1.10.2,  if 
^Yt” ^Yb  2  000 

— - - —  >  — S_—  ,  where  t  =  lesser  of  t„  or  t.  ,  the  effective  com- 

t  It  2  4’ 

V  yp 

pression  flange  is  checked  for  vertical  buckling  into  the  duct  web. 

The  equation  used  to  check  for  compression  flange  vertical  buckling  is 

43 

based  on  the  discussion  by  Salmon  and  Johnson.  The  following 
requirement  must  be  satisfied: 


f  < 


2*  2.3 

71  E  t 

_ E _ 


'  24  (1  -  v“)(H  -  tYt-  L^)  Acf  (16.5  ♦  F^) 

where 

f  =  computed  compressive  stress  in  the  duct  compression  flange 
based  on  the  reduced  effective  compression  flange  width,  from  Sec¬ 
tion  6 . 1  (ksi) 

Ep  =  plate  modulus  of  elasticity  (ksi) 

t  =  lesser  of  t^  or  t^  (side  duct  plate  thicknesses)  (in.) 

V  =  Poisson's  ratio  for  the  duct  plate 

H  =  vertical  dimension  of  rectangular  duct  cross  section;  from 
inside  surface  to  inside  surface  of  top  and  bottom  duct  plates  (in.) 

Lyti  Lyt,  =  °f  top  and  bottom  corner  angle  legs  parallel  to 

the  vertical  axis,  respectively  (in.) 

2 

=  effective  compression  flange  cross-sectional  area  (in.  ) 

* 30 12  -  <4t +  r>  ci +  al™ 

=  length  of  top  corner  angle  leg  parallel  to  the  horizontal 
axis  (in.) 

b  =  reduced  effective  compression  flange  width,  from  Section  6.1 


(in. ) 


t j  =  duct  top  plate  thickness  (in.) 
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W 

r_  ■ 


At  =  corner  angle  m  cross-sectional  area,  where  m  =  1  or  2, 


Lm 


corresponding  to  the  thinner  duct  side  plate  (in.) 


=  plate  yield  stress  (ksi) 

If  the  above  requirement  is  not  satisfied,  thicker  duct  side 


plates  and/or  larger  corner  angles  are  specified. 


6.4  Web  Shear.  If  the  average  web  shear  stress,  f^ ,  as  computed 

in  Section  6.4.2,  is  more  than  the  allowable  web  shear  stress,  F  ,  as 

7  v 

computed  in  Section  6.4.1,  the  side  stiffener  spacing  is  decreased  or 
the  side  duct  plate  thickness  is  increased. 


6.4.1  Allowable  Web  Shear  Stress. 


F  =  (C  )  <  0.40  F 

v  2.89  v  vJ  -  yp 


From  AISC  Section  1.10.5.2, 
(AISC  Equation  (1.10-1)) 


where 


C  = 
v 


45,000  k 


yp 


(H  -  LYt  -  hb) 


when  C  <0.8 
v 


when  C  >0.8 
v 


(s/H  is  always  <1.0) 


H  =  vertical  dimension  of  rectangular  duct  cross  section;  from 
inside  surface  to  inside  surface  of  top  and  bottom  duct  plates  (in.) 


Lyt>  Fyb  =  ^en8th  t0P  anc*  bottom  corner  angle  legs  parallel  to 


the  vertical  axis,  respectively  (in.) 

t  =  lesser  of  t^  or  t^  (side  duct  plate  thicknesses)  (in.) 
=  plate  yield  stress  (ksi) 


yp 


s  =  stiffener  spacing  (in.) 

The  value  of  Fv  calculated  from  AISC  Equation  (1.10-1)  is  more 
conservative  than  that  calculated  from  AISC  Equation  (1.10-2),  but  is 
used  here  because  the  provisions  of  AISC  Section  1.10.5.3  regarding 
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the  required  a/h  ratio  may  not  always  be  satisfied,  as  required  for 
use  of  Equation  (1.10-2). 

6.4.2  Average  Web  Shear  Stress. 

6.4.2. 1  End  Panels. 

w  L 

f  =  - — § - 

v  2,000  H  (t2  +  t4) 

where 

f  =  average  web  shear  stress  (ksi) 

w^  =  uniformly  distributed  load  on  duct  section  due  to  gravity 

loads  from  Section  2. 6. 2. 2  (plf) 

L  =  duct  span  (ft. ) 

H  and  t  are  defined  in  Section  6.1 
n 

6. 4. 2. 2  Interior  Panels, 
w  (r  H 

,  -  8  (L  ~  I2> 

V  "  2,000  H  (t2  +  t4) 

6.5  Combined  Shear  and  Tension  Stress.  Combined  shear  and 
tension  stress  is  checked  in  accordance  with  AISC  Section  1.10.7. 

f 

fb  £  (0.825  -  0.375  p)  F  (AISC  Equation  (1.10-7)) 

v  "P 

where 


f.  -  maximum  bending  tensile  stress  in  the  web  (ksi) 


0.0015  w  L2  (H  +  t  +  t  -  y") 

— - a -  ^  ^ 


be 


y"  =  distance  from  extreme  exterior  compression  fiber  to  the 
effective  neutral  axis  of  the  duct  section,  as  calculated  in  Sec¬ 
tion  6.1  ( in . ) 


m  wssm  mm  wm$  x&m  wwmjms&E 


Ij)e  =  moment  of  inertia  of  duct  section  based  on  the  reduced 
effective  compression  flange  width,  as  calculated  in  Section  6.1 
(in.4) 


f  =  average  web  shear  stress,  as  calculated  in  Section  6.4.2 


(ksi) 


(ksi) 


Fy  =  allowable  web  shear  stress,  as  calculated  in  Section  6.4.1 

) 

If  this  provision  is  not  satisfied,  the  duct  side  panel  plate 


thicknesses  are  increased. 


7.  BEARING  STIFFENER  DESIGN 


The  rigid  frame  approach  is  used  at  the  duct  support  points  where 
bearing  stiffeners  are  required.  The  rigid  frame  stiffener  design 
approach  presented  in  Section  5  is  used  with  the  following  modifica¬ 
tions  . 

The  effective  plate  widths  adjacent  to  the  bearing  (side)  stiff¬ 
eners,  b  ,  are  equal  to  12  times  the  adjacent  plate  thicknesses,  in 
accordance  with  AISC  1.10.5.1.  This  changes  I  ,  as  calculated  in 
Section  4.1. 

The  axial  force  in  the  bearing  stiffener  due  to  tension  field 
action  is 

P  =  f  (w  L  +  W,  )  , 
s  4  g  b 

as  compared  to  the  equation  for  Pg  given  in  Section  2. 6. 2. 2. 


APPENDIX  C 
COMPUTER  PROGRAMS 
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The  following  computer  programs  implement  the  detailed  ductwork 
design  procedures  presented  in  Appendix  B.  Representative  output  is 
given  in  Appendix  D.  These  diskette-based  computer  programs  are 
written  for  the  Digital  Equipment  Corporation  Professional  350 
personal  computer.  The  PRO/BASIC  programming  language,  a  version  of 
the  BASIC  programming  language  published  by  the  Digital  Equipment 
Corporation,  is  used. 

Due  to  memory  limitations  of  the  personal  computer,  the  ductwork 
design  procedure  is  separated  into  eight  main  programs.  However,  the 
ductwork  designer  need  only  load  and  run  the  first  program.  Subse¬ 
quent  programs  are  automatically  chained  to  (loaded  and  run)  with  no 
prompting  from  the  designer.  The  program  user  is,  however,  kept 
informed  of  which  program  is  currently  running  via  prompts  to  the 
computer  screen.  All  the  programs  are  interactive,  and  provide 
detailed  instructions  to  the  designer  as  the  programs  proceed.  Thus, 
no  prior  experience  with  the  programs  is  required  before  a  complete 
ductwork  structural  design  may  be  accomplished.  The  only  prerequisite 
is  a  basic  knowledge  of  how  to  turn  on  the  computer,  enter  the 
PRO/BASIC  mode,  and  load  and  run  the  first  program. 

The  designer  uses  the  first  program,  DUCT1,  to  enter  most  of  the 
ductwork  structural  design  parameters,  such  as  physical  dimensions  of 
the  duct,  basic  design  loads,  and  material  properties.  Program  DUCT2 
calculates  required  duct  plate  thicknesses  and  transverse  stiffener 
spacings  for  both  interior  and  end  duct  panels.  The  designer  inputs 
further  design  parameters  for  the  transverse  stiffeners  using  program 
DUCT3.  Program  DUCT4  is  used  to  select  transverse  pinned-end 
stiffeners.  Transverse  loads  and  load  combinations  for  use  in  the 
design  of  transverse  rigid  frame  stiffeners  are  computed  in  program 
DUCT5 .  These  load  combinations  are  then  used  to  design  transverse 
rigid  frame  stiffeners  in  program  DUCT6.  Program  DUCT6A  is  a  two  line 
program  which  enables  DUCT5  to  chain  to  DUCT6.  Program  DUCT7  performs 
duct  section  checks,  where  the  duct  section  is  considered  to  be  a 


simply  supported  bending  member.  Program  DUCT8A  is  another  two  line 
program  which  enables  DUCT5  to  chain  to  DUCT8 .  The  designer  uses 
program  DUCT8  to  select  the  bearing  stiffeners. 

Programs  DUCT4,  DUCT6,  DUCT7,  and  DUCT8  require  the  use  of  data 
from  several  different  diskette-based  files.  These  include  file 
WSHAPE,  which  contains  cross-sectional  dimensions  and  properties  of 
wide-flange  beams,  and  file  WT,  which  contains  cross-sectional  dimen¬ 
sions  and  properties  of  structural  tees.  Also  included  are  files  C 
and  EA,  which  contain  cross-sectional  dimensions  and  properties  of 
channels  and  equal-leg  angles,  respectively.  Since  the  data  contained 


0UCT1 . BAS 


15:50 


02-Apr-36 


SET  NO  DOUBLE 

10  REM  PROGRAM  NAME:  DUCT1 

20  REM 

30  REM  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  ESTABLISH  THE  DESIGN  PARAMETERS 
40  REM  TO  BE  USED  IN  THE  STRUCTURAL  DESIGN  OF  A  HORIZONTAL  SECTION  OF  COAL- 
50  REM  FUELED  POWER  PLANT  DUCTWORK 

60  REM 

70  OPEN  'LP:'  FOR  OUTPUT  AS  FILE  #1 
80  LET  I3=3\I4*4 

90  DIM  LFT (14), PLANGLE( I3),SS(4),T(4) 

100  PRINT  \  PRINT 

110  PRINT  'DO  YOU  A  HARD  COPY  OF  THE  PR06RAM  OUTPUT?  (Y  OR  N)' 

120  INPUT  HCOPY* 

130  IF  HCOPY**'Y'  GOTO  150 

140  PRINT  CHR*(27)+'[’4i'\  GOTO  180 

150  PRINT  CHR*(27)+' [?4i ' 

160  PRINT  #1,CHR*(12) 

170  PRINT  CHR$(27)+' [?5i ' 

180  PRINT  \  PRINT  \  PRINT  TAB( 26) ; 'DUCTWORK  STRUCTURAL  DESIGN'\  PRINT  \  PRINT 
190  PRINT  'WWT  IS  THE  DUCT  SPAN  (CLEAR  DISTANCE  BETWEEN  SUPPORTS)  IN  FEET'’' 
200  INPUT  LSP*4\  PRINT 

210  PRINT  ' INPUT  THE  WIDTHS  OF  SIDES  1,2,3  AND  4  IN  FEET.' 

220  PRINT  '(SIDE  l*TOP,  SIDES  2  <¥4D  4=SIDES,  SIDE  3=80TT0M) ' 

230  INPUT  LFT(l) ,LFT(2) ,LFT(3) ,LFT(4)\  PRINT  \  PRINT 

240  PRINT  'THE  FOLLOWING  INPUT  IS  USED  TO  CALCULATE  THE  ADJUSTED  '; 

250  PRINT  'MAINTENANCE  LIVE  LOAD. '\  PRINT 

260  PRINT  'INPUT  THE  ANGLE  BETWEEN  THE  TOP  PLATE  AND  HORIZONTAL  AND  THE  ' 

270  PRINT  'ANGLE  BETWEEN  THE  BOTTOM  PLATE  AND  HORIZONTAL,  IN  DEGREES.' 

280  PRINT  ' (MUST  BE  LESS  THAN  OR  EQUAL  TO  45  DEGREES) ' 

290  INPUT  PLANGLE ( 1 ) , PLANGLE ( 3 ) \  PRINT 

300  PRINT  'WHAT  IS  THE  NOMINAL  MAINTENANCE  LIVE  LOAD  IN  PSF?' 

310  INPUT  LR\  PRINT 

320  PRINT  'INPUT  AN  INITIAL  ESTIMATION  OF  THE  STIFFENER  SPACING  IN  INCHES' 

330  PRINT  '(USE  INITIAL  EST.  OF  36  IN.  IF  NO  BETTER  VALUE  IS  AVAILABLE)' 

340  INPUT  SSS\  PRINT  \  PRINT 

350  SS( 1 ) =SSS\SS( 2) =SSS\SS( 3) =SSS\SS( 4)*SSS 

360  PRINT  'THE  FOLLOWING  INPUT  IS  USED  TO  CALCULATE  DESIGN  WIND  LOADS. '\  PRINT 
370  PRINT  'WHAT  IS  THE  HEIGHT  OF  THE  TOP  OF  THE  DUCT  ABOVE  THE  GROUND  IN  FT’' 
380  INPUT  H\  PRINT 

390  PRINT  'WfttT  IS  MEAN  HEIGHT  OF  THE  DUCT  SECTION  ABOVE  THE  GROUND  IN  FT’' 

400  PRINT  '(HEIGHT  OF  CENTERLINE  OF  THE  DUCT  SECTION  ABOVE  THE  GROUND)' 

410  INPUT  Z\  PRINT 

420  PRINT  'WHAT  IS  THE  BASIC  WIND  SPEED  IN  MILES  PER  HOUR’' 

430  PRINT  '(FROM  PDM  OR  FWSI  A58. 1-1982,  FIGURE  1,  TABLE  7  OR  SECTION  6.5)' 

440  INPUT  V\  PRINT 

450  PRINT  'HOW  MANY  MILES  INLAND  FROM  A  HURRICANE  OCEAN  LINE?' 

460  PRINT  '(IF  GREATER  TWW  100  MILES  ENTER  100)' 

470  INPUT  MILESN  PRINT 

480  PRINT  'WHAT  IS  THE  MINIMUM  WIND  LOADING,  FROM  PDM,  IN  PSF’' 

490  PRINT  '(DEFAULT  VALUE  IS  10  PSF,  PER  ANSI  58.1-1982,  SECTION  6. 4. 2.1)' 

500  INPUT  QW1N\  PRINT 

510  PRINT  'WIND  EXPOSURE  CATEGORY  C  OR  D?' 

520  PRINT  '(FROM  ANSI  58.1-1982,  SECTION  6.5.3,  OR  FROM  PDM)' 

530  INPUT  EXPOSURES  PRINT 

540  PRINT  'WILL  THE  DUCTWORK  FWVE  INSULATION  AND  LAGGING?  (Y  OR  N)' 

550  INPUT  INSULLAG*\  PRINT 


uunjinjnuuuM. 
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DUCT1.BAS  15:50  02-Apr-86 

560  IF  HCOPY$*'N'  GOTO  600 
570  PRINT  CHR$(27)+'[?4i' 

580  PRINT  *1 ,CHR$(12) 

590  PRINT  CHR*(27)+' [?5i ' 

600  PRINT  'IS  THE  BOTTOM  DUCT  PANEL  EXPOSED  TO  WIND  FORCES?  (Y  OR  N) ' 

610  INPUT  BOTWIND*\  PRINT  \  PRINT 

620  PRINT  'THE  FOLLOWING  INPUT  IS  USED  TO  CALCULATE  DESIGN  SNOW  LOADS. '\  PRINT 
630  PRINT  'WHAT  IS  THE  GROUND  SNOW  LOAD  IN  PSF?' 

640  PRINT  '(FROM  PDM  OR  ANSI  A58. 1-1982,  FIGURES  5,6,  OR  7,  TAB.  17,  OR  A7.2)' 
650  INPUT  PG\  PRINT 

660  PRINT  'IS  THE  POWER  PLANT  IN  ALASKA?  (Y  OR  N)' 

670  INPUT  ALASKA*\  PRINT 

680  PRINT  'WHAT  IS  THE  SNOW  EXPOSURE  FACTOR?' 

690  PRINT  '(FROM  ANSI  A58. 1-1982,  TAB.  18;  =0.8,  0.9,  1.0,  1.1,  OR  1.2)' 

700  INPUT  CE\  PRINT 

710  PRINT  'IS  THE  DUCT  FOR  UNHEATED  AIR  OR  FOR  HEATED  AIR/FLUE  GAS?  (U  OR  H)' 
720  INPUT  HEAT*\  PRINT  \  PRINT 

730  PRINT  'THE  FOLLOWING  INPUT  IS  USED  TO  DETERMINE  SEISMIC  LOADING. '\  PRINT 
740  PRINT  'WHAT  IS  THE  SEISMIC  ZONE?' 

750  PRINT  '(FROM  PDM  OR  ANSI  A58. 1-1982,  FIGURES  13  OR  14)' 

760  INPUT  SEISZN  PRINT 

770  PRINT  'INPUT  AN  INITIAL  ESTIMATE  OF  PLATE  THICKNESSES  OF  SIDES  1-4,  IN.' 

780  PRINT  '(USE  INITIAL  ESTIMATE  OF  .3125  IN.  IN  ABSENCE  OF  A  BETTER  VALUE) ' 

790  INPUT  T(1),T(2),T(3),T(4)\  PRINT 

800  PRINT  'INPUT  DUCT  LINING  DEAD  LOAD,  PSF' 

810  INPUT  QDL\  PRINT 

820  PRINT  'WHAT  IS  THE  UNIT  WEIGHT  OF  THE  DUCT  PLATE  IN  PCF?' 

830  INPUT  UWP\  PRINT 

840  PRINT  'WmT  IS  THE  ASH  LIVE  LOAD  ON  THE  BOTTOM  PANEL  IN  PSF?' 

850  INPUT  QLA\  PRINT 

860  PRINT  'WHAT  IS  THE  ASH  LATERAL  LIVE  LOAD  COEFFICIENT?' 

870  PRINT  '(USED  TO  DETERMINE  ASH  LIVE  LOAD  ON  THE  DUCT  SIDE  PANELS;' 

880  PRINT  'SUGGESTED  RANGE  IS  FROM  .05  TO  .10)' 

890  INPUT  CLAN  PRINT 

900  IF  HCOPY*='N'  GOTO  940 

910  PRINT  CHR$(27)+'[?4i' 

920  PRINT  #1 ,CHR*(12) 

930  PRINT  CHR*(27)+'[?5i' 

940  PRINT  'THE  FOLLOWING  INPUT  IS  USED  TO  DETERMINE  OPERATING  AND  EXCURSION' 

950  PRINT  ' LOADS '\  PRINT 

960  PRINT  'ENTER  THE  DESIGN  OPERATING  VACUUM  FOR  THIS  DUCT  SECTION  (IN.W.G.)' 

970  INPUT  QLVINN  PRINT 
980  QLV=QLVIN*5.2 

990  PRINT  'ENTER  THE  DESIGN  OPERATING  PRESSURE  FOR  THE  DUCT  SECTION  (IN.W.G.)' 
1000  INPUT  QLPINN  PRINT 
1010  QLP=QLPIN*5.2 

1020  PRINT  'ENTER  THE  DESIGN  EXCURSION  VACUUM  FOR  THIS  DUCT  SECTION  (IN.W.G.)' 
1030  INPUT  QXVINX  PRINT 
1040  QXV=QXVIN*5. 2 

1050  PRINT  'ENTER  THE  DESIGN  EXCURSION  PRESSURE  FOR  THE  DUCT  SECTION  (IN.W.G.)' 
1060  INPUT  QXPINN  PRINT  \  PRINT 
1070  QXP=QXPIN*5.2 

1080  PRINT  'THE  FOLLOWING  INPUT  IS  USED  IN  THE  DUCT  PLATE  DESIGN'S  PRINT 
1090  PRINT  'WHAT  IS  THE  MODULUS  OF  ELASTICITY  OF  THE  PLATE  IN  KSI?' 

1100  INPUT  EPS  PRINT 
1110  E«EP*1000 
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1120  PRINT  "WHAT  IS  POISSON'S  RATIO  FOR  THE  PLATE?" 

1130  INPUT  PR\  PRINT 

1140  PRINT  'ENTER  THE  tt^XIMUM  ALLOWABLE  PLATE  DEFLECTION  FOR  NORMAL  OPERA'; 

1150  PRINT  'TING  CONDITIONS:' 

1160  PRINT  'ENTER  XXX,  WHERE  MAX.  ALLOW.  DEFLECTION  =  PLATE  SPAN/XXX' 

1170  PRINT  '(SUGGESTED  UALUE  FOR  XXX  IS  100)' 

1180  INPUT  ALDFL\  PRINT 

1190  PRINT  'DO  YOU  WANT  TO  SPECIFY  A  t-V*XIMUM  ALLOWABLE  PLATE  DEFLECTION  '; 

1200  PRINT  'UNDER  WIND  OR'\  PRINT  'SEISMIC  FORCES?  (Y  OR  N)' 

1210  INPUT  PROMPTS  PRINT 
1220  IF  PROMPTIN'  GOTO  1270 

1230  PRINT  'ENTER  THE  ttWIMUM  ALLOWABLE  PLATE  DEFLECTION  UNDER  WIND  OR  SEI S' ; 
1240  PRINT  'MIC  FORCES:' 

1250  PRINT  'ENTER  XXX,  WHERE  MAX.  ALLOW.  DEFLECTION  =  PLATE  SPAN/XXX' 

1260  INPUT  ALDWSX  PRINT 

1270  PRINT  'DO  YOU  I^WT  TO  SPECIFY  A  MAXIMUM  PLATE  DEFLECTION  UNDER  EXCURSI'; 
1280  PRINT  ' ON'\  PRINT  'PRESSURE  OR  VACUUM  CONDITIONS?  (Y  OR  N)' 

1290  INPUT  PR0MPT1*\  PRINT 
1300  IF  PR0MPT1*='N'  GOTO  1350 

1310  PRINT  'ENTER  THE  hWXIMUM  ALLOWABLE  PLATE  DEFLECTION  UNDER  EXCURSION  '; 

1320  PRINT  'CONDITIONS:' 

1330  PRINT  'ENTER  XXX,  WHERE  MAX.  ALLOW.  DEFLECTION  =  PLATE  SPAN/XXX' 

1340  INPUT  ALDX\  PRINT 

1350  PRINT  'ENTER  THE  PLATE  YIELD  STRESS  IN  KSI' 

1360  INPUT  FYP\  PRINT  \  PRINT 

1370  OPEN  'DATA1'  FOR  OUTPUT  AS  FILE  #2 

1380  LET  C*a'  ' 

1390  PRINT  #2jHC0PY$;C*sLPPAN|C*;LR;C*iH;C*;ZjC$;V;C*;MILES;C*;<*MIN 
1400  PRINT  #2 , EXPOSURE* ; C* ; INSULLAG* ; C* , BOTW I ND* ; C* ; PG ; C* ; ALASKA* ; C* ; CE 
1410  PRINT  *2 , HEAT* ; C* ; SE I SZ ; C* ; QDL ; C* ; UWP ; C* ; QLA ; C* ; CLA ; C* ; QLV ; C* ; QLP ; C* ; OXV 
1 420  PRINT  *2 , QXP ; C* ; EP ; C* ; E ; C* ; PR i C* ; ALDFL ; C* ; PROMPT* ; C* ; ALDWS ; C* ; PROMPT1* 

1430  PRINT  *2,ALDX;C*;FYP 

1440  PRINT  #2,LFT(1) ;C*;LFT(2) ;C*;LFT(3) ;C*;LFT(4) ;C*;PLANGLE(1) ;C*;PLANGLE(3) 
1450  PRINT  *2,SS(1) ; C* ; SS( 2 ) ;C*;SS(3) ;C*;SS(4) ;C*;T(1) ;C*;T(2) ;C*;T(3) ;C*;T(4) 
1460  CLOSE  #1,*2 

1470  LET  I0=0\  DIM  LFT( 10) ,PLANGLE(I0) , SS( 1 0 ) ,T( 10 ) 

1480  PRINT  CHR*(27)+'[?4i' 

1490  PRINT  'CHAINING  TO  PROGRAM  DUCT2;  PLEASE  WAIT'X  PRINT  \  PRINT 
1500  CHAIN  'DUCT2' 
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SET  NO  DOUBLE 

10  REM  PROGRAM  NAME:  DUCT 2 

20  REM 

30  REM  THIS  PR0GRF*1  IS  USED  TO  DETERMINE  THE  DUCT  PLATE  THICKNESS  AND 

40  REM  TR<*ISVERSE  STIFFENER  SPACING  FOR  BOTH  INTERIOR  DUCT  PANELS  AND  THE 

50  REM  END  PANELS . 

60  REM 

70  PROGRAM  DUCT2 

80  LET  I2a2\I3=3\I4=4\I6=6\l 7=7 

90  DIM  ATPSCI3) ,ATD( 13) ,QX( 14) ,RNGFLG( 16) ,Q( 14) , QD( 14) ,QWE( 1 4) ,QWE2( I  7) 

100  DIM  STRANDDFL( 12,161 , RNGFLGK 14,13) ,STRDFL( 1 2, 14 , 1 3) ,SDFLG*( 12, 14, 13) 

110  DIM  ENDSPACEK 14) ,ENDSPACE2( 14) ,ENDSPACE( 14) ,QEP( 14) ,QW( 14) ,QLR( 14) 

120  DIM  LFT( 14) ,PLANGLE( I3),SS(I4),T(I4) 

130  OPEN  'LP:'  FOR  OUTPUT  AS  FILE  *1\  OPEN  ' DATA1'  FOR  INPUT  AS  FILE  #2 

140  INPUT  #2 , HCOPY$ , LSPAN , LR , H ,Z , V ,MI LES , QWMIN 

150  INPUT  #2, EXPOSURE*, INSULLAG*,BOTWIND»,PG, ALASKA*, CE 

160  INPUT  #2 , HEAT $ . S£ I SZ , QDL , UWP , QLA , CLA , QLV , QLP , QXV 

170  INPUT  #2 , QXP , EP , E , PR , ALDFL , PROMPT* , ALDUS , PROMPT1* 

180  INPUT  *2,ALDX,FYP 

190  INPUT  *2,LFT(1) ,LFT(2) ,LFT(3) ,LFT(4) ,PLANGLE(1) ,PLANGLE(3) 

200  INPUT  #2,SS(1) ,SS(2),SS(3),SS(4),T(1),T(2),T(3),T(4)\  CLOSE  *2 
210  IF  HCOPY*='N'  GOTO  230 

220  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR»(12)\  PRINT  CHR*(27)+' [?5i ' 

230  DEF  FNRAD( DEG ) =DEG*(P I /I 80 )\RANGE*= '#♦*##' 

240  MAXALASaFYP* . 6\MAXALBS=FYP* . 75 

250  MAXAASWS=MAXALAS*4/3\MAXABSWS=MAXALBS*4/3 

260  REM  INTERIOR  PANEL  PLATE  THICKNESS  AND  STIFFENER  SPACING  DETERMINATION 
270  REM  Execute  Plate  Loading  Subroutines 

280  GOSUB  3660N  GOSUB  3790\  GOSUB  4610\  GDSUB  4830\  GOSUB  4870\  GOSUB  5050 
290  GOSUB  5260\  PRINT  \  PRINT 

300  PRINT  'YOU  NOW  HAVE  TWO  OPTIONS,  AS  DESCRIBED  BELOW: '\  PRINT 
310  PRINT  '1.  UNDER  OPTION  1,  THIS  PROGRAM  WILL  GENERATE  A  SET  OF  TABLES  Dl'j 
320  PRINT  'SPLAYING'N  PRINT  'HV^XIMUM  PLATE  STRESSES  AND  DEFLECTIONS  FOR  VARIO'; 
330  PRINT  'US  STIFFENER  SPACING  tf4D  PLATE '\  PRINT  'THICKNESS  COMBINATIONS.  F'j 
340  PRINT  'ROM  THESE  TABLES  YOU  WILL  SELECT  AN  ACCEPTABLE  PLATE' \  PRINT  'THIC' ; 
350  PRINT  'KNESS  AND  STIFFENER  SPACING  FOR  EACH  OF  THE  FOUR  SIDES  OF  THE  DUC' ; 
360  PRINT  'T.  IT  WILL'X  PRINT  'TAKE  APPROXIIWELY  50  TO  60  MINUTES  FOR  THE  C'; 
370  PRINT  'OMPUTER  TO  GENERATE  THESE  TABLES. '\  PRINT  \  PRINT  '2.  UNDER  OPTI' ; 
380  PRINT  'ON  2,  YOU  MUST  ENTER  TRIAL  VALUES  OF  PLATE  THICKNESS  AND  STIFFENER' 
390  PRINT  'SPACING  FOR  EACH  OF  THE  FOUR  DUCT  SIDES.  MAXIMUM  PLATE  STRESSES  '; 
400  PRINT  'AND  DEFLECTIONS'N  PRINT  'ARE  THEN  CALCULATED  AND  DISPLAYED.  YOU  '; 
410  PRINT  'ARE  GIVEN  THE  OPPORTUNITY  TO  CHANGE'N  PRINT  'PLATE  THICKNESSES  '; 

420  PRINT  'AND/OR  STIFFENER  SPACINGS  AS  REQUIRED.  OPTION  2  IS  FASTER  ' 

430  PRINT  'TW*N  OPTION  1,  BUT  THE  MOST  EFFICIENT  DESIGN  MAY  BE  OVERLOOKED 
440  PRINT  'USING  OPTION  2.'\  PRINT  \  PRINT  'DO  YOU  WISH  TO  SELECT  OPTION  '; 

450  PRINT  '1  OR  OPTION  2?  (ENTER  1  OR  2)' 

460  INPUT  OPTIONX  PRINT  \  PRINT  \  PRINT  \  IF  0PTI0N=2  GOTO  1530 

470  PRINT  'FOR  EACH  PLATE  THICKNESS  VS.  STIFFENER  SPACING  COMB I NAT I  ON  IN  EAC'  ; 

480  PRINT  'H  OF  THE' 

490  PRINT  'FOLLOWING  FOUR  TABLES  THE  FOLLOWING  INFORWTION  IS  TABULATED:' 

500  PRINT  \  PRINT  ' - ' 

510  PRINT  '|  AA .AA  I  AA.AA  =  MAXIMUM  DUCT  PLATE  STRESS  UNDER  NOR' ; 

520  PRINT  'MAL  OPERATING  CONDITIONS' 

530  PRINT  '|  B.BB  I  B.BB  =  HWXIMUM  PLATE  DEFLECTION  UNDER  NORMAL'; 

540  PRINT  '  OPERATING  CONDITIONS' 

550  PRINT  '|  CC.CC  I  CC.CC  =  MAXIMUM  PLATE  STRESS  UNDER  WIND  OR  '; 
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560  PRINT  'SEISMIC  FORCES' 

570  PRINT  '|  D.DD  I  D.DO  =  MAXIMUM  PLATE  DEFLECTION  UNDER  WIND  OR'-, 

580  PRINT  '  SEISMIC  FORCES' 

590  PRINT  '|  EE. EE  I  EE. EE  =  f**XIMUM  PLATE  STRESS  FOR  PRESSURE  EXCU' ; 

600  PRINT  'RSION  CONDITIONS' 

610  PRINT  'I  F.FF  I  F.FF  =  MAXIMUM  PLATE  DEFLECTION  FOR  PRESSURE  '; 

620  PRINT  'EXCURSION  CONDITIONS' 

630  PRINT  ' - ' 

640  PRINT  'ADDITIONAL  NOTES:  1)  STRESSES  ARE  IN  KSI ,  DEFLECTIONS  ARE'; 

650  PRINT  '  IN  INCHES.' 

660  PRINT  '  2)  AN  ASTERISK  (*)  FOLLOWING  A  NUMBER  '; 

670  PRINT  'INDICATES  THAT  THE'\  PRINT  TAB( 23) ;' STRESS  INTERACTION  '; 

680  PRINT  'REQUIREMENT  IS  NOT  SATISFIED  FOR  THIS'\  PRINT  TAB(23); 

690  PRINT  'LOAD  CONDITION,  OR  THE  DEFLECTION  EXCEEDS  THE  ALLOWABLE.' 

700  PRINT  TAB(19);'3)  *****  INDICATES  THAT  THE  LOAD/DIMENSIONS  COMBIN'; 

710  PRINT  'ATION' 

720  PRINT  TAB(23) | ‘ IS  OUTSIDE  THE  RANGE  OF  TIMOSHENKO'S  METHOD,  OR  INVOLVES’ 

730  PRINT  TAB(23) ; 'CALCULATIONS  WITH  REAL  NUMBERS  OF  MAGNITUDES  EXCEEDING' 

740  PRINT  TAB(23) ; 'THE  REPRESENTATION  CAPABI LTIY  OF  PRO  BASIC  ON  THE  DEC  350' 

750  PRINT  TAB( 23);' COMPUTER. '\  PRINT  \  PRINT 

760  FOR  DSID£=1  TO  4 

770  IF  HCOPY*='N'  GOTO  790 

780  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*(27)+' [?5i ' 

790  PRINT  TA8( 8) ; ' STRESSES  AND  DEFLECTIONS  FOR  SIDE' ;DSIDE; 'DUCT  PLATE'; 

800  PRINT  '  (INTERIOR  PANELS)' 

810  PRINT  \  PRINT  \  PRINT  TAB(18); 

820  FOR  J=1  TO  62\  PRINT  '-';\  NEXT  J\  PRINT 

830  PRINT  TAB( 18);'||';TAB(37) } 'PLATE  THICKNESS  (INCHES)' 

840  FOR  J=1  TO  80\  PRINT  NEXT  J\  PRINT 


850 

PRINT  'STIFFEN. 

ALLOW.  II' 

;TAB(29) ; ' 

• ;TAB(39) ;' I ' ;TAB(49) ;' | ' 

860 

PRINT  TA8(59) ; ' 

' ;TAB(69) ; ' i 

/ 

870 

PRINT  'SPACING 

DEFLECT.il 

3/16  1 

1/4  |  5/16  |  3/8' 

880 

PRINT  TAB(59) ; ' 

7/16  I 

1/2' 

890 

PRINT  ’(INCHES) 

( INCHES)! 1 ’ 

;TAB(29) ; ' 

' ;TAB( 39) ; ' | ' ;TAB( 49) ; ' 1 ' 

900  PRINT  TAB( 59) ; ' | ' ;TAB( 69) ; ' I ' 

910  FOR  J=1  TO  80\  PRINT  NEXT  J\  PRINT 

920  IF  SSP=66  GOTO  980 
930  FOR  SSP=24  TO  96  STEP  6 
940  MAXADFL=SSP/ALDFL 

950  IF  PR0MPT$*'Y'  THEN  fttXADFLWS=SSP/ALDWS 

960  IF  PR0MPT1$-'Y'  THEN  MAXALDFLX=SSP/ALDX 

970  IF  SSP*66  GOTO  780 

980  FOR  11=1  TO  3 

990  FOR  JJ=1  TO  6\RNGFLG( JJ) =0\  NEXT  JJ\PLTHK=.1875 

1000  ON  II  GOTO  1020,1120,1250 

1010  REM  NORMAL  OPERATING  CONDITIONS  (NO  WIND  OR  SEISMIC  FORCES) 

1020  QQ=ABS( Q(DSI DE) )/144\LIMITA=MAXALAS 

1030  LIMITB=MAXALBS\LIMITD=MAXADFL 

1040  REM  Calculate  Plate  Stresses  and  Deflections 
1050  GOSUB  5670\  PRINT  TAB(8) ;' I ' ;TAB(18) ; ' I ' ; 

1060  REM  Execute  Plate  Stress  Print  Subroutine 
1070  GOSUB  5780\  PRINT  TAB( 8) ; ' I ' ;TAB( 12) ; 

1080  PRINT  USING  '*.**' ,MAXADFL;\  PRINT  TAB(18);'|'; 

1090  REM  Execute  Plate  Deflection  Print  Subroutine 
1100  GOSUB  5870\  GOTO  1370 

1110  REM  NORMAL  OPERATING  CONDITIONS  (INCLUDING  WIND  OR  SEISMIC  FORCES) 
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1120  GQ=ABS( QWE( DSIDE) )/144\LIMITA=MAXAASWS\LIMIT8=MAXABSWS 

1130  IF  PR0MPT$='N'  THEN  LIMITD=100  ELSE  LIMITD=MAXADFLWS 

1140  REM  Calculate  Plate  Stresses  and  Deflections 
1150  QOSUB  5670\  PRINT  TAB(3) ;SSP;TAB( 8) ; ' I ' ;TAB(18) ; ' i ' ; 

1160  REM  Execute  Plate  Stress  Print  Subroutine 
1170  GOSUB  5780\  PRINT  TAB( 8) ; ' I ' ;TAB(12) ; 

1180  IF  PRCMPT*='Y'  GOTO  1210 

1190  PRINT  'N/A';TAB(18);'|'; 

1200  GOTO  1230 

1210  PRINT  USING  '#.##' .MAXADFLWS j\  PRINT  TAB(18);,|/5 

1220  REM  Execute  Plate  Deflection  Print  Subroutine 

1230  GOSUB  5870\  GOTO  1370 

1240  REM  EXCURSION  VACUUM  OR  PRESSURE  CONDITIONS 

1250  QQ=ABS(QX(DSIDE) )/144\LIMITA=FYP\LIMITB=FYP 

1260  IF  PR0MPT1$='N'  THEN  LIMITD=100  ELSE  LIMITD=MAXALDFLX 

1270  REM  Calculate  Plate  Stresses  and  Deflections 

1280  GOSUB  5670\  PRINT  TAB(8) ; ' I ' ;TAB(18) ; ' I ' ; 

1290  REM  Execute  Plate  Stress  Print  Subroutine 
1300  GOSUB  5780\  PRINT  TAB(8) ; ' I ' ;TAB(12) ; 

1310  IF  PR0MPT1$='Y'  GOTO  1340 

1320  PRINT  'N/A' ;TAB(18) | ; 

1330  GOTO  1360 

1340  PRINT  USING  '#.##' ,MAXALDFLX;\  PRINT  TAB(18) | ; 

1350  REM  Execute  Plate  Deflection  Print  Subroutine 

1360  GOSUB  5870 

1370  NEXT  II 

1380  FOR  1=1  TO  80\  PRINT  NEXT  I\  PRINT 

1390  NEXT  SSP 

1400  NEXT  DSIDEN  PRINT  \  PRINT 

1410  IF  HCOPY$='N'  THEN  GOTO  1430 

1420  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*( 27)+' [ ?5i ' 

1430  PRINT  'FROM  THE  PRECEDING  TABLES  SELECT  THE  STIFFENER  SPACING  AND  PLATE' 
1440  PRINT  'THICKNESS  FOR  EACH  SIDE  OF  THE  DUCT.  IF  STIFFENERS  WITH  RIGID' 

1450  PRINT  '(MOMENT-RESISTING)  CONNECTIONS  AT  THE  DUCT  CORNERS  ARE  TO  BE  USED,' 
1460  PRINT  'THE  STIFFENER  SPACINGS  SELECTED  FOR  EACH  SIDE  OF  THE  DUCT  MUST  BE' 
1470  PRINT  'EQUAL.  IF  PINNED  (NON  MOMENT-RESISTING)  CONNECTIONS  AT  THE  DUCT' 
1480  PRINT  'CORNERS  ARE  TO  BE  USED,  THE  STIFFENER  SPACINGS  FOR  SEPARATE  SIDES' 
1490  PRINT  'OF  THE  DUCT  MAY  BE  DIFFERENT.  HOWEVER,  ALL  STIFFENER  SPACINGS  ' 
1500  PRINT  'CHOSEN  SHOULD  BE  EVEN  MULTIPLES  OF  THE  MINIMUM  STIFFENER  SPACING' 
1510  PRINT  'SELECTED.  IN  EITHER  CASE,  PLATE  THICKNESSES  MAY  VARY  FROM  SIDE  TO' 
1520  PRINT  'SIDE. '\  PRINT  \  PRINT 
1530  FOR  1=1  TO  4 

1540  PRINT  'ENTER  THE  PLATE  THICKNESS  (INCHES)  AND  STIFFENER  SPACING  (INCH'; 
1550  PRINT  'ES)  FOR  SIDE'; I 
1560  INPUT  T( I ) ,SS( I )\  PRINT 
1570  NEXT  I 

1580  PRINT  'SHALL  A  CORROSION  ALLOWANCE  BE  ADDED  TO  THE  PLATE  THICKNESS  ON  '; 
1590  PRINT  'EACH  SIDE  OF'N  PRINT  'THE  DUCT?  (Y  OR  N)' 

1600  INPUT  CORR»\  PRINT  \  IF  CORR*='N'  GOTO  1680 

1610  PRINT  'ENTER  THE  CORROSION  ALLOWANCE  IN  DECIMALS  OF  fiH  INCH' 

1620  INPUT  CRA\  PRINT 

1630  PRINT  'NOTE:  THE  ADDITIONAL  PLATE  THICKNESS  DUE  TO  THE  CORROSION  ALLOW'; 
1640  PRINT  'ANCE  IS  N0T'\  PRINT  TAB( 7) ;' CONSIDERED  IN  ANY  STRUCTURAL  CALCULA' ; 
1650  PRINT  'TIONS,  EXCEPT  THAT  THE  PLATE  DEAD'X  PRINT  TAB(7);'L0AD  IS  INCREA' ; 
1660  PRINT  'SED  AS  APPROPRIATE . '\  PRINT 
1670  FOR  1=1  TO  4\T ( I ) =T( I )+CRA\  NEXT  1 
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1680  IF  HCOPY*='N'  GOTO  1700 
1690  PRINT  CHR*(27)+' [?4i ' 

1700  PRINT  'STRESSES  f*4D  DEFLECTIONS  ARE  BEING  CALCULATED;  PLEASE  WAIT' 

1710  IF  HCOPY*='N'  GOTO  1740 
1720  PRINT  CHR»(27)+'[?5i' 

1730  REN  Recalculate  Plate  Loads 

1740  GOSUB  3660\  GOSUB  3?90\  GOSUB  4870\  GOSUB  5050\  GOSUB  5260 

1750  IF  CORR*='N'  GOTO  1780 

1760  FOR  1=1  TO  4\T ( I ) =T ( I ) -CRA\  NEXT  I 

1770  REN  Calculate  Stresses  and  Deflections  Based  on  the  Actual  Dimensions 

1780  FOR  DSIDE=1  TO  4 

1790  PLTHK=T ( DSIDE)\SSP=SS( DSI DE) 

1800  FOR  11=1  TO  3 

1810  ON  II  GOTO  1820,1930,2050 

1820  QQ=ABS(Q(DSIDE) )/144\  GOSUB  5450 

1830  RNGFLGKDSIDE,  1 1  )=RANGEFLAG 

1840  STRDFLd ,DSIDE, 1 1 ) =MAXSTR/1000 

1850  STRDFL(2,DSIDE,II)=MAXDFL 

1860  IF  STRESSl/( .6*FYP)+STRESS2/(  ,75*FYP)>1  THEN  1880 

1870  SDFLG*(1 ,DSIDE, 1 1 )='  '\  GOTO  1890 

1880  SDFLGid ,DSIDE, I !)='*' 

1890  MAXADFL=SS(DSIDE)/ALDFL 

1900  IF  MAXDFL >MAXADFL  THEN  SDFLG*(2,DSIDE, 1 1 )='*'\  GOTO  1920 

1910  SDFLG$(2,DSID£, I 1 )='  ' 

1920  GOTO  2150 

1930  QQ=ABS( QWE( DSI DE) )/144\  GOSUB  5450 

1940  RNGFLG1 ( DS I DE , 1 1 ) =RANGEFLAG 

1950  STRDFLd , DSI DE, 1 1 ) =MAXSTR/1000 

1960  STRDFL(2,DSIDE, 1 1 )=MAXDFL 

1970  IF  STRESS1/(.8*FYP)+STRESS2/FYP>1  THEN  1990 

1980  SDFLG$(1 ,DSIDE, 1 1 )  =  '  '\  GOTO  2000 

1990  SDFLG$(1 , DSIDE, 1 1 )='*' 

2000  IF  PROMPT*='N'  THEN  SDFLG*(2,DSIDE, 1 1 )  =  '  '\  GOTO  2040 

2010  MAXADFL=SS( DSIDE) /ALDUS 

2020  IF  NAXDFL >MAXADFL  THEN  SDFLG$(2,DSIDE, 1 1 )  =  '*'\  GOTO  2040 

2030  SDFLG*(2, DSIDE, 11)='  ' 

2040  GOTO  2150 

2050  QQ=ABS(QX( DSIDE) )/144\  GOSUB  5450 

2060  RNGFLG1( DSIDE, 1 1 )=RANGEFLAG 

2070  STRDFLd, DSIDE,  1 1  )=mXSTR/1000 

2080  STRDFLd, DSIDE,  1 1  )=MAXDFL 

2090  IF  STRESS1+STRESS2>FYP  THEN  SDFLG*(1 , DSIDE, 1 1 )='*'\  GOTO  2110 

2100  SDFLG$(1 ,DSIDE, 1 1 )  =  '  ' 

2110  IF  PR0MPT1*='N'  THEN  SDFLG*< 2 , DSI DE , 1 1 )*'  '\  GOTO  2150 

2120  MAXADFL*SS( DSIDE) /ALDX 

2130  IF  MAXDFL >MAXADFL  THEN  SDFLG*(2, DSIDE, 1 1 ) ='*'\  GOTO  2150 

2140  SDFLG*(2,DSIDE, 1 1 )='  ' 

2150  NEXT  II 

2160  NEXT  DSIDEX  PRINT  \  PRINT 

2170  IF  CORR*='N'  GOTO  2190 

2180  FOR  1=1  TO  4\T ( I )=T( I )+CRA\  NEXT  I 

2190  IF  HCOPY$='N'  GOTO  2210 

2200  PRINT  CHR*(27)+'[?4i'\  PRINT  ♦1,CHR«(12)\  PRINT  CHR$(27)+' [?5i ' 

2210  PRINT  TAB( 6) ;' STRESSES  AND  DEFLECTIONS  BASED  ON  THE  ACTUAL  DIMENSIONS  '; 
2220  PRINT  'SELECTED'N  PRINT  TAB( 20) ;'( INTERIOR  Pf^JELS  -  NONLINEAR  THEORY)' 
2230  PRINT  \  PRINT  \  PRINT  TAB(31); 
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2240  FOR  1=1  TO  44\  PRINT  NEXT  I\  PRINT  \  PRINT  TAB(31); 

2250  FOR  1=1  TO  4\  PRINT  'I  SIDE'; I;'  '  ;N  NEXT  I\  PRINT 
2260  FOR  1=1  TO  31\  PRINT  NEXT  I 

2270  FOR  1=1  TO  44\  PRINT  NEXT  IN  PRINT 

2280  PRINT  'PLATE  THICKNESS  ( INCHES) ' ;TAB( 31) ; 

2290  FOR  1=1  TO  4\  PRINT  USING  '|  .***♦  ' ,T( I )  ;N  NEXT  I\  PRINT 

2300  FOR  1=1  TO  75\  PRINT  '-';N  NEXT  I\  PRINT 
2310  PRINT  'STIFFENER  SPACING  (INCHES)' jTAB( 31) ; 

2320  FOR  1=1  TO  4\  PRINT  USING  'I  **  ',SS(I);\  NEXT  I\  PRINT 

2330  FOR  1=1  TO  75\  PRINT  NEXT  I\  PRINT 

2340  FOR  JJ=1  TO  2 

2350  IF  JJ=2  GOTO  2380 

2360  PRINT  'MAXIMUM  STRESSES  (KSI ) ' ;TAB( 31 ) i ' I ' ;TAB( 42) j ' I ' ;TAB(53) ; 

2370  PRINT  ' | ' ;TAB(64) ; ' I '\  GOTO  2400 

2380  PRINT  'MAXIMUM  DEFLECTIONS  ( INCHES) ' ;TAB( 31 ) ; ' | ' ;TAB(42) ; ' I ' ;TAB( 53) ; 
2390  PRINT  ' | ' ;TAB(64) ; ' I ' 

2400  FOR  11=1  TO  3 

2410  ON  II  GOTO  2420,2430,2440 

2420  PRINT  '  NO  WIND  OR  SEISMIC  FORCES  ' ;\  GOTO  2450 

2430  PRINT  '  WIND  OR  SEISMIC  FORCES  ' ;\  GOTO  2450 

2440  PRINT  '  EXCURSION  CONDITIONS 

2450  FOR  DSIDE=1  TO  4 

2460  IF  RNGFLG1 ( DSI DE , 1 1 ) =0  GOTO  2480 

2470  PRINT  USING  "I  'LLLL  * , RANGE* ;\  GOTO  2490 

2480  PRINT  USING  ‘I  ***.*♦'  * ,STRDFL( JJ.DSIDE , 1 1 ) ; SDFLG*( JJ ,DSIDE , 1 1 ) ; 

2490  NEXT  DSI DEN  PRINT 

2500  NEXT  1 1 

2510  FOR  1=1  TO  75\  PRINT  '-'}\  NEXT  IN  PRINT 
2520  NEXT  JJN  PRINT  N  PRINT 

2530  PRINT  'NOTES;  1)  AN  ASTERISK  (*)  FOLLOWING  A  NUMBER  INDICATES  THAT  THE' i 
2540  PRINT  '  STRESS  INTER-'N  PRINT  TAB( 12) ; 'ACTI ON  REQUIREMENT  IS  NOT  SATISF' ; 
2550  PRINT  ' I  ED  FOR  THIS  LOAD  CONDITION,  OR  THE'N  PRINT  TAB(12) ; 'DEFLECTION 
2560  PRINT  'EXCEEDS  THE  ALLOWABLE.' 

2570  PRINT  TAB(8);'2)  *****  INDICATES  THAT  THE  LOAD/DIMENSIONS  COMBINATION  I'; 

2580  PRINT  'S  OUTSIDE  THE'N  PRINT  TAB( 12) ; ’RANGE  OF  TIMOSHENKO'S  METHOD  OR  IN"; 
2590  PRINT  'VOLVES  CALCULATIONS  WITH  REAL'N  PRINT  TAB( 12) ; 'NUMBERS  OF  MAGNITU' ; 
2600  PRINT  'DES  EXCEEDING  THE  REPRESENTATION  CAPABILITY  OF'N  PRINT  TAB(12); 

2610  PRINT  'PRO  BASIC  ON  THE  DEC  350  COMPUTER.' 

2620  IF  CORR$='N'  GOTO  2700 

2630  PRINT  TAB<8);'3)  THE  PLATE  THICKNESSES  SHOWN  IN  THE  ABOVE  TABLE  INCL' ; 
2640  PRINT  'UDE  THE  CORROSION'N  PRINT  TAB( 12) ; 'ALLOWANCE .  STRESSES  AND  DE' ; 
2650  PRINT  'FLECTIONS  SHOW  ABOVE  ARE  CALCULATED'N  PRINT  TAB( 12) ;' IGNORING' ; 
2660  PRINT  '  THE  ADDITIONAL  PLATE  THICKNESS  DUE  TO  THE  CORROSION' 

2670  PRINT  TAB(12) ; 'ALLOWANCE,  EXCEPT  THAT  THE  ADDITIONAL  WEIGHT  OF  THE  '; 
2680  PRINT  'PLATE  IS'N  PRINT  TAB(12) {'CONSIDERED.' 

2690  FOR  1=1  TO  4\T( I )=T( I ) -CRA\  NEXT  I 
2700  PRINT  \  PRINT  \WARNING=0 

2710  FOR  JJ=1  TO  2\  FOR  DSIDE=1  TO  4\  FOR  11=1  TO  3 
2720  IF  SDFLG$( JJ.DSIDE, 11)='*'  THEN  WARN ING=1 
2730  NEXT  I I\  NEXT  DSI DEN  NEXT  JJN  IF  WARNINGS  GOTO  2750 
2740  PRINT  N  PRINT  N  GOTO  2790 

2750  PRINT  '***  WARNING  ***  THE  STIFFENER  SPACING/PLATE  THICKNESS  COMBINATI ' ; 
2760  PRINT  'ON  SELECTED  FOR'N  PRINT  TAB(17);'0NE  OR  MORE  OF  THE  DUCT  SIDES  RE'; 
2770  PRINT  'SULTS  IN  STRESSES  AND/OR 'N  PRINT  TAB ( 17) ;' DEFLECT I ONS  THAT  EXCEED'; 
2780  PRINT  '  THE  ALLOWABLE  (SEE  TABLE  ABOVE). 'N  PRINT  N  PRINT 
2790  PRINT  'DO  YOU  WISH  TO  C^GE  A  STIFFENER  SPACING  tfMD/OR  PLATE  THICKNESS'; 


174 


DUCT2.BAS  23:19  02-Apr-86 

2800  PRINT  '  PREVIOUSLY  A  PRINT  'SELECTED?  (Y  OR  N)' 

2810  INPUT  CW*IGE*N  PRINT  \  PRINT 
2820  IF  HC0PY*»'N'  GOTO  2840 

2830  PRINT  CHR*(27)+'[?4i'N  PRINT  #1,CHR*(12)N  PRINT  CHR*(27)+' [?5i ' 

2840  IF  C)WNGE**'N'  GOTO  2890 

2850  PRINT  \  PRINT  'PLEASE  REENTER  THE  CORRECT  PLATE  THICKNESS/STIFFENER  SPA'; 
2860  PRINT  'CING  COMBINATIONS  FORA  PRINT  'ALL  FOUR  SIDES: A  PRINT 
2870  GOTO  1530 

2880  REM  END  PANEL  TR/V4SVERSE  STIFFENER  SPACING  DETERMINATION 

2890  FOR  1=1  TO  4\ENDSPACE1( I )=100NENDSPACE2( I )=100\  NEXT  I 

2900  FOR  1=1  TO  4 

2910  FOR  J=1  TO  3 

2920  ON  J  GOTO  2930,2940,2950 

2930  MAXL0AD=ABS(Q(I))NALL0WSTRESS=.75*FYPNDFLRATI0=ALDFLN  GOTO  2960 

2940  MAXLOAD=ABS(QWE( I ) )NALLOWSTRESS=FYPNDFLRATIO=ALDWSN  GOTO  2960 

2950  MAXLOAD=ABS( QX( I ) )NALLOWSTRESS=FYPNDFLRATI 0=ALDXN  GOTO  2960 

2960  MAXENDSPACE1 =SQR ( ( 192000*ALLOWSTRESS*T( I ) A 2) /MAXLOAD) 

2970  IF  MAXENDSPACE1<ENDSPACE1( I )  THEN  LET  ENDSPACE1 ( I ) =MAXENDSPACE1 

2980  IF  DFLRATIO=0  THEN  LET  DFLRATIO=l 

2990  MAXENDSPACE2=( ( .22E+07*EP*T( I ) A3)/(MAXL0AD*(1-PRA2)*DFLRATI0) ) A (1/3) 

3000  IF  MAXENDSPACE2<ENDSPACE2( I )  THEN  LET  ENDSPACE2( I ) =MAXENDSPACE2 

3010  NEXT  J 

3020  IF  ENDSPACEK I ) <ENDSPACE2( I )  THEN  ENDSPACE( I )=ENDSPACE1( I )\  GOTO  3040 
3030  ENDSPACE ( I ) =ENDSPACE2 ( I ) 

3040  NEXT  I 

3050  IF  CORR*='N'  GOTO  3070 

3060  FOR  1=1  TO  4\T( I )=T( I )+CRA\  NEXT  I 

3070  PRINT  TAB( 3) i 'MAXIMUM  ALLOWABLE  STIFFENER  SPACINGS  FOR  DUCT  END  PANELS' ; 
3080  PRINT  '  (LINEAR  THEORY)' 

3090  PRINT  \  PRINT  \  PRINT  TAB(31); 

3100  FOR  1=1  TO  44\  PRINT  NEXT  I\  PRINT 

3110  PRINT  TABC31 ) ; 

3120  FOR  1=1  TO  4\  PRINT  '|  SIDE' ; I j '  ' |\  NEXT  I\  PRINT 
3130  FOR  1=1  TO  31\  PRINT  NEXT  I 

3140  FOR  1=1  TO  44\  PRINT  '=';\  NEXT  I\  PRINT 
3150  PRINT  'PLATE  THICKNESS  ( INCHES) ' ;TAB( 31 ) ; 

3160  FOR  1=1  TO  4\  PRINT  USING  'I  .#*#*  ',T(I)j\  NEXT  I\  PRINT 

3170  FOR  1=1  TO  75\  PRINT  '-'j\  NEXT  I\  PRINT 

3180  PRINT  'hfcXIMUM  STIFFENER  SPACING' (TAB( 31) j ' I ' jTAB(42) ; ' I ' ;TAB( 53) j 
3190  PRINT  ' | ' jTAB( 64) j ' | ' 

3200  PRINT  'BASED  ON  PLATE  STRESS' ;TAB( 31 ) j 

3210  FOR  1=1  TO  4\  PRINT  USING  'I  ♦♦  ' , ENDSPACEK I ) ;\  NEXT  I\  PRINT 

3220  PRINT  '(INCHES)' ;TAB(31) i' I ' ;TAB(42) j ' I ' ;TAB(53) j ' I ' jTAB(64) j ' ! ' 

3230  FOR  1*1  TO  75\  PRINT  '-';N  NEXT  IN  PRINT 

3240  PRINT  'MAXIMUM  STIFFENER  SPACING'  jTAB(  31 ) ; '  I  '  ;TAB( 42) ; '  I '  ;TAB( 53)  j 
3250  PRINT  ' 1 ' ;TAB(64) ; ' I ' 

3260  PRINT  'BASED  ON  DEFLECTION' ; TAB ( 31 ) ; 

3270  FOR  1=1  TO  4\  PRINT  USING  '|  **  ' ,ENDSPACE2( I ) j\  NEXT  IN  PRINT 

3280  PRINT  ' ( INCHES) ' ;TAB( 31 ) ; ' I ' ;TAB( 42) j ' I ' ;TAB(53) ; ' I ' ;TAB(64) ; ' | ' 

3290  FOR  1=1  TO  75N  PRINT  '=';N  NEXT  IN  PRINT 

3300  PRINT  'MAXIMUM  ALLOWABLE  END' ;TAB( 31 ) ; ' I ' ;TAB( 42) ; ' I ' ;TAB< 53) ; 

3310  PRINT  ' I ' ;TAB( 64) j ' | ' 

3320  PRINT  'PANFL  STIFFENER  SPACING' ;TAB( 31) j 

3330  FOR  1=1  TO  4N  PRINT  USING  'I  ♦#  ' ,ENDSPACE( I ) ;N  NEXT  IN  PRINT 

3340  PRINT  '(INCHES)' ;TAB(31) ;' I ' ;TAB( 42) | ' I ' ;TAB( 53) ; ' | ' ;TAB( 64) ; ' I ' 

3350  FOR  1=1  TO  75N  PRINT  '='jN  NEXT  IN  PRINT 
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3360  PRINT  'NOTE:  1)  THE  fV^XIMUM  ALLOWABLE  STIFFENER  SPACINGS  SHOWN  ABOVE 
3370  PRINT  'ARE  BASED  ON'\  PRINT  TAB(ll) ; 'LINEAR  THEORY.  THE  END  PANELS  ARE  '; 
3380  PRINT  'CONSIDERED  TO  BE  SIMPLY  SUPPORTED'N  PRINT  TAB(ll) ; 'ALONG  ONE 
3390  PRINT  'STIFFENER  AND  FIXED  ALONG  THE  OTHER.  THE  STIFFENERS  ARE' 

3400  PRINT  TAB(ll); 'ASSUMED  TO  PROVIDE  NO  RESTRAINT  IN  THE  PLANE  OF  THE  PLATE.' 
3410  IF  CORR*='N'  GOTO  3450 

3420  PRINT  TAB(7)j'2)  THE  PLATE  THICKNESSES  SHOW  ABOVE  INCLUDE  THE  '; 

3430  PRINT  'CORROSION  ALLOWANCE '\  PRINT  TAB( 11) ; 'PREVIOUSLY  SPECIFIED.' 

3440  FOR  1=1  TO  4\T( I  )=T( I )-CRA\  NEXT  I 
3450  PRINT  CHR$(27)+' [?4i ' 

3460  IF  HCOPY»='N'  GOTO  3480 
3470  PRINT  #1,CHR*<12) 

3480  LET  C$= '  ' 

3490  OPEN  'DATA2'  FOR  OUTPUT  AS  FILE  #2\  OPEN  'DATA3'  FOR  OUTPUT  AS  FILE  #3 
3500  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  *5 

3510  PRINT  #2 , INSULLAG* j C$ ; LR j C* i LSPAN ; C* ; QLA ; C$ ; PLANGLE( 1 ) ;C$; PLANGLEC 3) 

3520  PRINT  #2,LFT(l);C*iLFT(2)!C*iLFT(3);C$iLFT(4) 

3530  PRINT  #3,CLAjC$jC0RR*jC*;CRAjC*iLSPANiC*;EP;C*;FYP;C*;SEISZ 
3540  PRINT  #3,UWP5C*;Q0LjC*jQLA;C*;QLP;C*5QLV;C*;QS;C*;QXP;C*;QXV 
3550  PRINT  #3 , LFT ( 1 ) ; C$  j  LFT ( 2 )  jCijLFT(3)  -,C$  jLFT(4)  ;C*;QLR(1)  ;C*;QLR(3) 

3560  PRINT  *3,T(1)  ;C*;T(2)  ,*C*;T(3)  ;C*;T<4)  ;C*;QW(1)  ;C*;QWC2)  ;C*;QW(3)  ;C*}QH(4) 
3570  PRINT  #5,SS(1) ;C*;SS(2) ;C*jSS(3) ;C*|SS(4) 

3580  CLOSE  #1,*2,#3,#5\  LET  10=0 
3590  DIM  ATPS( 10) ,ATD( 10), QX (10) 

3600  DIM  Q(I0),QD(I0) , QWE( 10) ,QME2C 10) ,STRANDDFL( 10,10) ,RNGFLG( 10) 

3610  DIM  RNGFLGK 10,10) ,STRDFL( 10 , 10,10) ,SDFLG$C 10,10,10) 

3620  DIM  LFT ( 10 ) , PLANGLEC 10) , SSC 10) ,T(I0) ,  QEPC 10) ,QW( 10) ,  QLRC 10 ) 

3630  DIM  ENDSPACE1 (10),  ENDSPACE2 ( 10), ENDSPACE (10) 

3640  PRINT  'CHAINING  TO  PROGRAM  DUCT3 J  PLEASE  WAIT'N  CHAIN  'DUCT3' 

3650  REM  ADJUSTED  MAINTENANCE  LIVE  LOAD  SUBROUTINE 

3660  FOR  1=1  TO  3  STEP  2 

3670  ATPS( I )=LFT ( I )*SS( 1 )/12 

3680  IF  ATPS( I ) <=200  THEN  Rl=l\  GOTO  3710 

3690  IF  ATPS( I ) >=600  THEN  Rl=.6\  GOTO  3710 

3700  R1=1.2-.001*ATPS(I) 

3710  IF  PLANGLEC I ) <=18  THEN  R2=l\  GOTO  3740 

3720  IF  PLANGLEC I) >=45  THEN  R2=.6\  GOTO  3740 

3730  R2=l .2-.6*SIN(FNRAD(PLANGLE( I ) ) )/COS(FNRAD( PLANGLEC I ) ) ) 

3740  QLR( I )=LR*R1*R2 

3750  IF  QLRC I ) < .6*LR  THEN  QLRC I )=.6*LR 

3760  NEXT  I 

3770  RETURN 

3780  REM  PLATE  WIND  LOADING  SUBROUTINE 
3790  IF  MILESHOO  THEN  IMPORT-1. 0 A  GOTO  3810 
3800  IMPORT-1. 11-.0004*MILES 
3810  IF  H>60  THEN  GOTO  4280 

3820  REM  Wind  Loading  for  Duct  Elevations  of  Less  Than  60  Feet  Above  Ground 
3830  IF  H<=15  THEN  KH=.8\  GOTO  3850 
3840  KH=.369*HA(2/7) 

3850  QH=.00256*KH*(IMPORT*V)A2 

3860  FOR  1=1  TO  4 

3870  IF  103  GOTO  3890 

3880  IF  BOTWIND*='N'  THEN  QW(3)=0\  GOTO  4250 

3890  ON  I  GOTO  3910,4020,3910,4130 

3900  REM  Wind  Loading  on  Top  and  Bottom  Panels 
3910  IF  PLANGLEC I) >10  GOTO  3960 
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IF  SS( I )*LFT(I )/12<10  THEN  GCP=-1.4\  GOTO  4220 
GCP=-1 .4+.2*LOG10(SS< I )*LFT( I )/120) 

IF  GCP>-1 .2  THEN  GCP*-1.2 
GOTO  4220 

IF  PLANGLE( I ) >30  GOTO  3920 
IF  SS(I)*LFT(I)/12<10  THEN  GCP=-1.3\  GOTO  4220 
GCP=-1 .3+. 2*L0G1 0(SS( I )*LFT ( I )/120) 

IF  GCP>-1 .1  THEN  GCP=-1 .1 
GOTO  4220 

REM  Mind  Loading  on  Leeward  Side  Panel 
IF  PLANGLE(l) >10  GOTO  4080 
IF  PLANGLEC3) >10  GOTO  4080 

IF  SS(I)*LFT(I)/12<10  THEN  GCP=-1.35\  GOTO  4220 
GCP=-1 .35+  .212*LOG10( SS( I )*LFT( I )/120) 

IF  GCP>-.99  THEN  GCP=-.99 
GOTO  4220 

IF  SS( I )*LFT ( I )/12<10  THEN  GCP=-1.5\  GOTO  4220 
GCP=-1.5+.235*LOG10(SS( I )*LFT( I )/120) 

IF  GCP>-1 .1  THEN  GCP=-1 .1 
GOTO  4220 

REM  Wind  Loading  on  Windward  Side  Panel 
IF  PLANGLE(l) >10  GOTO  4190 
IF  PLANGLE( 3) >10  GOTO  4190 

IF  SS( I )*LFT( I )/12<10  THEN  GCP=1.35\  GOTO  4220 
GCP=1 . 35- . 265*LOG10( SS( I )*LFT( I )/l 20 ) 

IF  GCP< .9  THEN  GCP=.9 
GOTO  4220 

IF  SS( I )*LFT ( I )/12<10  THEN  GCP*1.5\  GOTO  4220 
GCP=1 . 5- . 294*LQG1 0 ( SS ( I ) *LFT ( I ) /I 20 ) 

IF  GCP<1  THEN  GCP=1 
QW(I)=QH*GCP 

IF  ABS( QW( I ) ) >*QH1IN  GOTO  4250 

IF  QW( I )  >=0  THEN  QW(I)=QWIN  ELSE  QW( I )=QWMIN*-1 

NEXT  I 

GOTO  4590 

REM  Wind  Loading  for  Duct  Elevations  Over  60  Feet  Above  the  Ground 

IF  EXPOSURES' C'  THEN  KZ=.369*ZA(2/7)\  GOTO  4300 
KZ* . 696*ZA . 2 

QZ* . 0  0  256*KZ* ( I MPQRT*V ) A  2 

IF  EXPOSURE**' C'  THEN  KH*.396*HA(2/7)\  GOTO  4330 
KH= . 696*HA . 2 

QH».00256*KH*(  IMPORTS) A  2 

FOR  1=1  TO  4 

IF  103  GOTO  4370 

IF  B0TWIND**'N'  THEN  QW(3)=0\  GOTO  4580 
ON  I  GOTO  4390,4460,4390,4530 

REM  Wind  Loading  on  Top  and  Bottom  Panels 

IF  SS( I )*LFT( 1 )/l 2 <10  THEN  GCP=-2\  GOTO  4420 
GCP=-2+LOG10  < SS( I )*LFT( I )/120 ) 

IF  GCP>-1  THEN  GCP=-1 
QW(I)=QH*GCP 

IF  ABS(QW(  I ) )  <QWIN  THEN  QW(  I  )*QWIN*-1 
GOTO  4580 

REM  Wind  Loading  on  Leeward  Side  Panel 

IF  SS( I )*LFT ( I )/12<100  THEN  GCP=-1.1\  GOTO  4490 
GCP—1 .1+.429*L0G10(SS(  I  )*LFT(  I  )/1200) 
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4480  IF  GCP>-.8  THEN  GCP=-.8 

4490  QW( I )=QH*GCP 

4500  IF  ABS(QW(I))<QmiN  THEN  QW(  I  )=QWIN*-1 

4510  GOTO  4580 

4520  REM  Mind  Loading  on  Windward  Side  Panel 

4530  IF  SS( I )*LFT( I )/12<10  THEN  GCP=1.1\  GOTO  4560 

4540  GCP*1 . 1- . 206*LOG10( SS( I )*LFT( I )/l 20 ) 

4550  IF  GCP< .75  THEN  GCP=.75 

4560  QW( I )=QZ*GCP 

4570  IF  QW< I ) <QWiIN  THEN  QW(I)=QWHN 

4580  NEXT  I 

4590  RETURN 

4600  REM  SNOW  LOADING  SUBROUTINE 

4610  IF  ALASKA*='Y'  THEN  C0EFF=.86  ELSE  COEFF=1.01 

4620  IF  HEAT*='U'  THEN  CT=1.2  ELSE  CT=1 

4630  IF  PLANGLE(l) >=5  GOTO  4650 

4640  QS=C0EFF*CE*CT*P6\  GOTO  4730 

4650  IF  CT=1 . 2  GOTO  4690 

4660  IF  PLANGLE(l) <=30  THEN  CS=C0S(FNRAD(PU*IGLE(1) ) )\  GOTO  4720 
4670  IF  PLANGLE(l) >70  THEN  CS=0\  GOTO  4720 

4680  CS=(1-(PLANGLE(1)-30)/40)*COS(FNRAD(PLANGLE(1)))\  GOTO  4720 

4690  IF  PLANGLE(l) <=45  THEN  CS=C0S(FNRAD(PLFNGLE(1)))\  GOTO  4720 
4700  IF  PLANGLE(l) >70  THEN  CS*0\  GOTO  4720 
4710  CS=(l-( PU*JGLE< 1 ) -45)/25)*C0S( FNRAD( PLANGLE(1 ) ) ) 

4720  QS=COEFF*CS*CE*CT*PG 
4730  RETURN 

4740  REM  SEISMIC  ZONE  COEFFICIENT  SUBROUTINE 

4750  IF  SEISZ=0  THEN  ZS=l/8\  GOTO  4810 

4760  ON  SEISZ  GOTO  4770,4780,4790,4800 

4770  ZS=3/16\  GOTO  4810 

4780  ZS=3/8\  GOTO  4810 

4790  ZS=3/4\  GOTO  4810 

4800  ZS=1 

4810  RETURN 

4820  REM  DUCT  PfiNEL  SEISMIC  LOADING  SUBROUTINE 
4830  GOSUB  4750 

4840  FOR  1=2  TO  4  STEP  2\QEP( I ) =. 45*ZS*(UWP*T( I )/12+QDL)\  NEXT  I 
4850  RETURN 

4860  REM  PLATE  LOAD  DETERMINATION  SUBROUTINE  -  NO  WIND  OR  SEISMIC  FORCES 

4870  FOR  1=1  TO  3  STEP  2\QD< I )=UWP*T( I )/12\  NEXT  I 

4880  REM  Top  Panel 

4890  IF  INSULLAG*='N'  GOTO  4910 

4900  Q11=QD(1)+QDL+QUAQ13=QD(1)+QDL\  GOTO  4920 

4910  Q11=QD(1)+QDL+QLV+QLR(1)+QS\Q13=QD(1)+QDL+QLR(1)+QS 

4920  Q12«QD(1)+QDL-QLP 

4930  IF  ABS( Qll ) >ABS( Q12)  THEN  Q(1)=Q11  ELSE  Q(1)=Q12 

4940  IF  ABS(Q13) >ABS(Q(1) )  THEN  Q(1)=Q13 

4950  REM  Side  Panels 

4960  Q21 =QLV\Q22=-QLP-CLA*QLA 

4970  IF  ABS( Q21 ) >ABS( Q22)  THEN  Q(2)=Q21  ELSE  Q(2)=Q22 
4980  Q(4)=Q( 2) 

4990  REM  Bottom  Panel 

5000  Q31=-Q0( 3) -QDL+QL<AQ32=-QD( 3) -QDL-QLP-QLA\Q33=-QD< 3) -QDL-QLR( 3) -QLA 
5010  IF  ABS(Q31) >ABS( Q32)  THEN  Q(3)*Q31  ELSE  Q(3)=Q32 
5020  IF  ABS(Q33) >ABS(Q(3) )  THEN  Q(3)«Q33 
5030  RETURN 
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5040  REM  PLATE  LOAD  DETERMINATION  SUBROUTINE  -  WITH  WIND  OR  SEISMIC  FORCES 

5050  FOR  1=1  TO  3  STEP  2\QD( I )=UWP*T ( I )/12\  NEXT  I 

5060  REM  Top  Panel 

5070  QWE(1)=QD(1)+QDL-QLP+QWU) 

5080  REM  Side  Panels 

5090  IF  INSULLAGfs'N'  GOTO  5110 

5100  QWE2( 1 ) =0\QWE2( 3) =0\QWE2( 5) =0\QWE2( 6) =-CLA*QLA\  GOTO  5130 

5110  QWE2< 1 ) =QLV+QW( 4)\QWE2( 3) =-QLP+QW( 2) -CLA*QLA 

5120  QWE2(5)=QW(4)\QWE2(6)=QW(2)-CLA*QLA 

5130  QWE2(2)=QLWQW<4) 

5140  QWE2< 4) =-QLP-QEP( 4) -CLA*QLA\QWE2( 7) =-QEP( 2) -CLA*QLA 
5150  QWE(2)=QWE2(1) 

5160  FOR  1=2  TO  A  IF  ABS(QWE2( I ) ) >ABS( QWE(2) )  THEN  QWE(2)=QWE2( I )\  NEXT  I 
5170  QWE(4)=QWE(2) 

5180  REM  Bottom  Panel 

5190  IF  INSULLAG*='N'  GOTO  5210 

5200  QWE32=-QD(3)-QDL-QLP-QLA\QWE33=-QD(3)-QDL-QLR(3)-QLA\  GOTO  5220 
5210  QWE32=-QD(3)-QDL-QLP-QLA+0W(3)\QWE33=-QD<3)-QDL-QLR(3)-QLA+QW(3) 

5220  IF  ABS(QWE32)>ABS(QWE33)  THEN  QWE( 3)=QWE32\  GOTO  5240 
5230  QM£(3)=QWE33 

5240  RETURN 

5250  REM  PLATE  LOAD  DETERM I NAT I  ON  SUBROUTINE  -  EXCURSION  CONDITIONS 

5260  FOR  1=1  TO  3  STEP  2\QD( I )=UWP*T( I )/12\  NEXT  I 

5270  REM  Top  Panel 

5280  IF  INSULLAG*='N'  GOTO  5300 

5290  QX11=QD(1)+QDL+QXV\  GOTO  5310 

5300  QX1 1 =QD ( 1 ) +QDL+QLR  < 1 ) +QS+QXV 

5310  QX1 2=QD( 1 )+QDL-QXP 

5320  IF  ABS(QXll) >ABS(QX12)  THEN  QX(1)=QX11\  GOTO  5350 

5330  QX(1)=QX12 

5340  REM  Side  Panels 

5350  QX21=QXVAQX22=-QXP-CLA*QLA 

5360  IF  ABS( QX21 ) >ABS( 0X22)  THEN  QX(2)=QX21\  GOTO  5380 
5370  QX(2)=QX22 

5380  QX(4)=QX(2) 

5390  REM  Bottom  Panel 

5400  QX31=-QD( 3) -QDL+QXV\QX32=-QD< 3) -QDL-QLA-QXP 
5410  IF  ABS( QX31 ) >ABS( QX32)  THEN  QX(3)=QX31\  GOTO  5430 
5420  QX( 3) =QX32 

5430  RETURN 

5440  REM  INTERIOR  DUCT  PANEL  STRESS  AND  DEFLECTION  SUBROUTINE 

5450  DEF  FNSINH(X)=(EXP(X)-EXP( -X) )/2 

5460  DEF  FNTANH(X)=(EXP(X) -EXP( -X) )/( EXP(X)+EXP( -X) ) 

5470  DEF  FNCALCU(X)=81/(16*XA7*FNTANH(X) )+27/(16*XA6*FNSINH(X) A2) -FNCU1 (X) 
5480  DEF  FNCUl(X)=27/(4*XA8)+9/( 8*XA6)-(EA2*PLTHKA8)/( ( 1-PRA2) A2*QQA2*SSPA8) 
5490  DEF  FNPSI (X)=(3*( <-FNTANH(X) ) )/(XA2*FNTANH(X) ) 

5500  DEF  FNF1 (X) =( 24/XA4)*(XA2/2+X/FNSINH(X)-X/FNTANH(X) ) 

5510  LET  L0WER= . 2\UPPER=44\RANGEFLAG=0 

5520  LET  TEST=(EA2*PLTHKA8)/((1-PRA2)A2*QQA2*SSPA8) 

5530  IF  TEST<. 0000000001397  OR  TEST). 178  GOTO  5590 

5540  FOR  1=1  TO  500 

5550  LET  U=( LOWER+UPPER )/2 

5560  IF  FNCALCUC LOWER )*FNCALCU(U) <0  THEN  UPPER=U  ELSE  LOWER=U 

5570  IF  ABS( UPPER-LOWER) < .00005  GOTO  5600 

5580  NEXT  I 

5590  RANGEFLAG=1\  GOTO  5650 
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5600  LET  STRESS1=( ( (E*UA2)/( 3*( 1-PRA2) ) )*( PLTHK/SSP) A2)/1000 
5610  LET  STRESS2=( (QQ/2)*(SSP/PLTHK)A2*FNPSI (U) )/10Q0 
5620  LET  MAXSTR*(STRESSH-STRESS2)*1000 
5630  LET  D=(E*PLTHKA3)/(12*(1-PRA2)) 

5640  LET  MAXDFL3(QQ*SSPA4*FNF1(U) )/( 384*D) 

5650  RETURN 

5660  REM  STRESS  4ND  DEFLECTION  TABLE  SUBROUTINE 

5670  FOR  JJ=1  TO  6 

5680  GOSUB  5450 

5690  IF  RANGEFLAG=0  GOTO  5720 

5700  RNGFLG( JJ)=1 

5710  GOTO  5740 

5720  STRANDDFLC 1 , JJ) =MAXSTR/1000 

5730  STRANDDFL( 2 , J J) =MAXDFL 

5740  PLTHK=PLTHK+ .0625 

5750  NEXT  JJ 

5760  RETURN 

5770  REM  PLATE  STRESS  PRINT  SUBROUTINE 

5780  FOR  JJ=1  TO  6 

5790  IF  RNGFLG( JJ) =0  GOTO  5820 

5800  PRINT  USING  *|  'LLLL  * .RANGE*; 

5810  GOTO  5840 

5820  IF  STRESS1/LIMITA+STRESS2/LIMITB>1  THEN  STFL*='*'  ELSE  STFL* 

5830  PRINT  USING  *|  ##*.#*'  * ,STRANDDFL(1 , JJ) ;STFL*; 

5840  NEXT  JJ\  PRINT 
5850  RETURN 

5860  REM  PLATE  DEFLECTION  PRINT  SUBROUTINE 

5870  FOR  JJ=1  TO  6 

5880  IF  RNGFLG( JJ) =0  GOTO  5910 

5890  PRINT  USING  "I  'LLLL  * , RANGE* ; 

5900  GOTO  5930 

5910  IF  STRANDDFL(2, JJ) >LIMITD  THEN  DFLFLG*='*'  ELSE  DFLFLG*='  ' 
5920  PRINT  USING  " I  **.**'  * ,STRANDDFL(2, JJ) ;DFLFLG*; 

5930  NEXT  JJ\  PRINT 
5940  RETURN 
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SET  NO  DOUBLE 

10  REM  PROGRAM  W*1E:  DUCT 3 
20  REM 

30  REM  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  ESTABLISH  FURTHER  DESIGN  PARAMETERS 
40  REM  TO  BE  USED  IN  THE  STRUCTURAL  DESIGN  OF  TRANSVERSE  STIFFENERS  FOR  A 
50  REM  HORIZONTAL  SECTION  OF  COAL-FUELED  POWER  PLPNT  DUCTWORK 
60  REM 

70  PROGRttl  DUCT3 
80  LET  I3=3SI4*4 

90  DIM  DSA( 13) ,WELD*( 14) ,LBRC( 1 4) ,WA(I4) ,LY(I4) ,LFT(I4) ,PLANGLE(I3) ,SS(I4) 

100  OPEN  'LP:'  FOR  OUTPUT  AS  FILE  #1 

110  OPEN  'DATA2'  FOR  INPUT  AS  FILE  #2\  OPEN  'DATA5'  FOR  INPUT  AS  FILE  #5 
120  INPUT  #2, INSULLAG$,LR,LSPAN,QLA,PLANGLE(1) ,PLANGLE(3) 

130  INPUT  #2,LFT(1),LFT(2),LFT(3) ,LFT(4) 

140  INPUT  #5,SS(1) ,SS(2) ,SS(3) ,SS(4) 

150  CLOSE  *2, *5 

160  DEF  FNRAD(DEG)=DEG*(PI/180)\  PRINT  \  PRINT 

170  PRINT  'DO  YOU  WANT  A  KbARD  COPY  OF  THE  STIFFENER  SELECTION  OUTPUT?  (Y  OR  N)' 
180  INPUT  HCOPY*\  PRINT 

190  IF  HCOPY*='N'  THEN  PRINT  CHR*(27)+' [?4i 'S  GOTO  210 
200  PRINT  CHR*(27)+'[?5i' 

210  PRINT  \  PRINT  \  PRINT  TAB( 25) ; 'TRANSVERSE  STIFFENER  DESIGN'S  PRINT  \  PRINT 
220  PRINT  'YOU  hWY  ELECT  TO  DESIGN  THE  TRANSVERSE  STIFFENERS  AS  PIKNED-END  '; 

230  PRINT  'BEAM  COLUMNS,'\  PRINT  'OR  AS  A  RIGID  FRAME  ENCIRCLING  THE  DUCT.  '; 
240  PRINT  'IF  YOU  WISH  TO  EXECUTE  THE  PIM4ED-END'S  PRINT  'STIFFENER  DESIGN  '; 

250  PRINT  ' PROGRAM  ENTER  P.  IF  YOU  WISH  TO  EXECUTE  THE  RIGID  FR/*IE' 

260  PRINT  'STIFFENER  DESIGN  PROGRAM  ENTER  R.' 

270  INPUT  CCNN*\  PRINT  \  IF  C0M4**'P'  GOTO  440 

280  FLAG=OS  FOR  1*1  TO  3\  IF  SS( I ) <>SS( 1+1)  THEN  FLAG=1 

290  NEXT  I\  IF  FLAG=0  GOTO  440 

300  PRINT  'STIFFENER  SPACINGS  FOR  ALL  FOUR  SIDES  OF  THE  DUCT  MUST  BE  EQUAL  IF'; 
310  PRINT  '  RIGID  FRAME'S  PRINT  'STIFFENERS  ARE  USED.  THE  STIFFENER  SPACINGS'; 
320  PRINT  '  TW*T  YOU  IAVE  SELECTED  ARE  NOT  ALL'S  PRINT  'EQUAL. 'S  PRINT  S  PRINT 
330  PRINT  'DO  YOU  WISH  TO  CHANGE  THE  STIFFENER  SPACINGS  PREVIOUSLY  SELECTED?  '; 
340  PRINT  '  (Y  OR  N)'S  INPUT  CWG*S  PRINT  S  IF  CHNG$='N'  GOTO  420 
350  PRINT  'NOTE:  IN  ORDER  TO  ENSURE  THAT  THESE  DIFFERENT  STIFFENER  SPACINGS  '; 
360  PRINT  'DO  NOT  LEAD'S  PRINT  'TO  EXCESSIVE  PLATE  STRESSES  OR  DEFLECTIONS,  '; 
370  PRINT  'THE  STRESS  AND  DEFLECTION  TABLES'S  PRINT  'GENERATED  IN  PROGRAM  '; 

380  PRINT  ' DUCT2  (UNDER  OPTION  1)  IAY  BE  CHECKED,  OR  PROGRAM  DUCT2' 

390  PRINT  'MAY  BE  REEXECUTED. 'S  PRINT 

400  FOR  1*1  TO  4S  PRINT  'ENTER  THE  STIFFENER  SPACING  FOR  SIDE' ; I ; ' IN  INCHES' 

410  INPUT  SS(I)S  PRINT  S  NEXT  IS  GOTO  280 

420  PRINT  S  PRINT  'THE  TR/*JSVERSE  STIFFENERS  WILL  BE  DESIGNED  USING  THE  PIN'; 

430  PRINT  'NED-END  STIFFENER'S  PRINT  'DESIGN  PR0GR/*1'S  PRINT  S  PRINT  SCOM«='P' 
440  PRINT  'ENTER  THE  STIFFENER  YIELD  STRESS  IN  KSI' 

450  INPUT  FYSS  PRINT 

460  PRINT  'ENTER  THE  MODULUS  OF  ELASTICITY  OF  THE  STIFFENERS  IN  KSI' 

470  INPUT  ESS  PRINT 

480  PRINT  'ENTER  THE  UNIT  WEIGHT  OF  THE  STIFFENERS  IN  PCF' 

490  INPUT  UWSS  PRINT 

500  PRINT  'ENTER  THE  MAXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  FOR  NORMAL  OPERAT' ; 
510  PRINT  'ING  CONDITIONS'S  PRINT  'ENTER  XXX,  WHERE  MAXIMUM  ALLOWABLE  DEFLECT I' ; 
520  PRINT  'ON  =  STIFFENER  SPFN/XXX'S  PRINT  '(SUGGESTED  VALUE  FOR  XXX  IS  240)' 

530  INPUT  DSA(1)S  PRINT 

540  PRINT  'DO  YOU  WFNT  TO  SPECIFY  A  fAXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  UN'; 
550  PRINT  'DER  WIND  OR'S  PRINT  'SEISMIC  FORCES?  (Y  OR  N) ' 
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560  INPUT  PR0MPT2$\  PRINT 

570  IF  PROMPT 2*='N'  THEN  DSA<2)*1\  GOTO  630 

580  PRINT  'ENTER  THE  MAXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  UNDER'; 

590  PRINT  '  WIND  OR  SEISMIC  FORCES:' 

600  PRINT  'ENTER  XXX,  WHERE  httXIMUM  ALLOWABLE  DEFLECTION  =  STIFFENER  SPAN/X' ; 

610  PRINT  'XX' 

620  INPUT  DSA(2)\  PRINT 

630  PRINT  'DO  YOU  WWT  TO  SPECIFY  A  hVWIMUM  ALLOWABLE  STIFFENER  DEFLECTION  UN'; 
640  PRINT  'DER  EXCURSIONS  PRINT  'CONDITIONS?  (Y  OR  N)' 

650  INPUT  PROMPT 3$\  PRINT 

660  IF  PROMPT 3<*'N'  THEN  DSA(3)*1\  GOTO  720 

670  PRINT  'ENTER  THE  fttXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  UNDER  EXCURSION'; 
680  PRINT  '  CONDITIONS' 

690  PRINT  'ENTER  XXX,  WHERE  I^XIMUM  ALLOWABLE  DEFLECTION  =  STIFFENER  SPFN/X' ; 
700  PRINT  'XX' 

710  INPUT  DSA(3)\  PRINT 

720  PRINT  'ENTER  THE  APPROXIMATE  WEIGHT  OF  INTERNAL  BRACING  IN  THE  DUCT  SPAN'; 
730  PRINT  '  IN  POUNDS' 

740  INPUT  WB\  PRINT 

750  IF  HCOPY*='N'  GOTO  770 

760  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*(27)+'[?5i' 

770  IF  INSULLAG*='N'  THEN  QDI=0\  GOTO  800 

780  PRINT  'ENTER  THE  WEIGHT  OF  THE  DUCT  INSULATION  AND  LAGGING  IN  PSF' 

790  INPUT  QOI\  PRINT 

800  PRINT  'WW»T  SMPE  STIFFENERS  DO  YOU  WISH  TO  USE?  (W  =  W  SMPE,  WT  =  STRU' ; 
810  PRINT  ' CTURAL  TEE,'\  PRINT  'C  *  CHANNEL) ' 

820  INPIT  SHP*\  PRINT 

830  IF  SHP*='W'  THEN  SHP«1  ELSE  SHP»0 

840  IF  SHP*-'WT'  THEN  SHP=2 

850  IF  SHPS='C'  THEN  SHP=3 

860  IF  SHP*0  GOTO  800 

870  PRINT  'SMALLER  STIFFENER  SECTIONS  W*Y  RESULT  IF  THE  STIFFENERS  ARE  COMME' ; 
880  PRINT  'CTED  TO  THE'N  PRINT  'DUCT  PLATE  WITH  CONTINUOUS  WELDS. '\  PRINT 
890  FOR  1*1  TO  4 

900  PRINT  'WILL  THE  STIFFENERS  ON  SIDE' ; I ; 'BE  CONTINUOUSLY  OR  INTERMITTENT'; 
910  PRINT  'LY  WELDED  TO  THE'N  PRINT  'DUCT  PLATE?  (I  *  INTERMITTENT  WELDS,  ' 
920  PRINT  'C  *  CONTINUOUS  WELD)' 

930  INPUT  WELD*(I)\  PRINT 

940  NEXT  I 

950  IF  HCOPY*»'N'  GOTO  970 

960  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*(27)+' [?5i ' 

970  PRINT  ' SMALLER  STIFFENER  SECTIONS  MAY  RESULT  IF  THE  EXTERIOR  FLANGES'; 

980  PRINT  '  (FLANGES  NOT'N  PRINT  'IN  CONTACT  WITH  DUCT  PLATE)  ARE  BRACED  '; 

990  PRINT  'AGAINST  TWIST  OR  LATERAL  DI SPLACEMENT. '\  PRINT  'SUCH  BRACING  MAY'; 
1000  PRINT  '  BE  PROVIDED  BY  WELDING  STRAPS  OR  BARS  PARALLEL  TO  THE' 

1010  PRINT  'LONGITUDINAL  DIRECTION  OF  THE  DUCT  TO  THE  EXTERIOR  FLANGE  OF  EACH  ' 
1020  PRINT  'TRANSVERSE'N  PRINT  'STIFFENER. '\  PRINT 
1030  FOR  1=1  TO  4 

1040  PRINT  'WILL  INTERMEDIATE  BRACING  AWINST  TWIST  OR  LATERAL  DISPLACEMENT' 
1050  PRINT  '  OF  THE  EXTERIOR'N  PRINT  'STIFFENER  FLANGES  ON  SIDE' ; I ; ' BE  PROV' 
1060  PRINT  'IDED?  (Y  OR  N)' 

1070  INPUT  LBRACE$\  PRINT 

1080  IF  LBRACE*='N'  THEN  LBRC( I )=LFT( I )*12\  PRINT  \  GOTO  1120 

1090  PRINT  'WWT  IS  THE  httXIMUM  UNBRACED  LENGTH  IN  INCHES  OF  THE  EXTERI ' 

1100  PRINT  'OR  STIFFENER  FLANGES'N  PRINT  'ON  SIDE'; I;'?' 

1110  INPUT  LBRC(I)\  PRINT 
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1120  NEXT  I 

1130  REM  3X3X1/4  corner  angles  are  assumed  as  an  initial  estimate 

1140  FOR  1=1  TO  4 

1150  W(  I )  =4 . 9\LY ( I ) =3 

1160  NEXT  I 

1170  REM  Calculate  adjusted  maintenance  live  load  for  duct  section  design 
1180  GOSUB  1370 

1190  REM  Calculate  adjusted  ash  live  load 
1200  GOSUB  1470 

1210  LET  C*=','\  OPEN  'DATA4'  FOR  OUTPUT  AS  FILE  #4 
1220  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  #5 

1230  PRINT  #4,HC0PY*;C*;QDI ;C* ;SHP;C*;UWS;C*;FYS;C*iES;C$;QLRD;C*;QLAD;C*;WB 
1240  PRINT  #4,LBRC(1) ;C*;LBRC(2) ;C*;LBRC(3) ;C*;LBRC(4) ;C*;W(1) ;C*;WA(2) 

1250  PRINT  #4,W<3) ;C»;W(4) ;C*;DSA(1) ;C*;DSA<2j ;CijDSA(3) ;C*;LY(1) ;C*;LY(2) 
1260  PRINT  #4,LY(3) ;C*;LY(4) ;C*;WELD*(1) ;C»;WELD*(2) ;C$;WELD*(3) ;C*;WELD*(4) 
1270  PRINT  #5,SS(l);C*iSS(2)}C$jSS(3)iC*jSS(4) 

1280  CLOSE  #1,*4,#5\  LET  10=0 

1290  DIM  DSA( 10) ,WELD*( 10) , LBRC ( 10) ,W(  10) , LY( 1 0) , LFT (10) ,PLANGLE( 10) , SS( 10) 
1300  PRINT  CHR*(27)+' [?4i ' 

1310  IF  C0NN*-'R'  GOTO  1340 

1320  PRINT  'CHAINING  TO  PROGRAM  DUCT4;  PLEASE  WIT' 

1330  CHAIN  'DUCT4' 

1340  PRINT  'CHAINING  TO  PROGR^I  DUCTS;  PLEASE  WIT' 

1350  RECALC=0\  CWIN  '  DUCTS'  WITH  RECALC 

1360  REM  DUCT  SECTION  ADJUSTED  MAINTENANCE  LIVE  LOAD  SUBROUTINE 
1370  IF  LSPAN*LFT(1) <=100  THEN  Rl=l\  GOTO  1400 
1380  IF  LSPAN*LFT ( 1 ) >=500  THEN  Rl=.2\  GOTO  1400 
1390  Rl*l .2-.002*LSPAN*LFT ( 1) 

1400  IF  PLANGLE(l) <*18  THEN  R2=l\  GOTO  1430 

1410  IF  PLANGLE ( 1 ) > *45  THEN  R2=.6\  GOTO  1430 

1420  R2=l . 2- . 6*SIN( FNRAD( PLANGLE ( 1 ) ) )/C0S( FNRAD( PLANGLEC 1 ) ) ) 

1430  QLRD=LR*R1*R2 

1440  IF  QLRD<=.2*LR  THEN  QLRD=.2*LR 

1450  RETURN 

1460  REM  ADJUSTED  ASH  LIVE  LOAD  SUBROUTINE 
1470  IF  LSPAN*LFT(3)<=100  THEN  R3=l\  GOTO  1500 
1480  IF  LSPAN*LFT ( 3) >=600  THEN  R3=.5\  GOTO  1500 
1490  R3*l .1-.001*LSPAN*LFT( 3) 

1500  QLAD=QLAr*R3 
1510  RETURN 
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SET  NO  DOUBLE 

10  REM  PROGRAM  NAME:  DUCT 4 

20  REM 

30  REM  THE  PURPOSE  OP  THIS  PROGRAM  IS  TO  SELECT  TRANSVERSE  PIKNED-END 
40  REM  STIFFENERS 

50  REM 

60  PROGRAM  DUCT 4 

70  LET  I2=2\I3=3\I4=4 

80  DIM  WES( 14) ,WS( 1 4) ,W( 14,13,12) ,QD( 14) 

90  DIM  WELDi( 14), LBRC( 14) , FB ( 13, 12) , FBM( 13,13,12) ,WW(I3, 12) 

100  DIM  WA(I4),DALL0W(I3),LY(I4),AST(I4),SEC*(I4) 

110  DIM  LFT( 14) ,PLANGLE( 13) , T ( 14) ,SS( 14) , QW( 14) ,  QLR( 13) , BE (14) 

120  DIM  DST (14) ,Y1( 14) , I E< 1 4) , RE( 1 4) ,BF(I4) ,TF( 14) ,TW( 1 4) , RT( 1 4) ,AE( 1 4) , IXS( 1 4) 
130  DIM  PVP( 14,12,12) ,FAM( 14,12,12) ,P( 14 , 12) ,DSA( 1 3) 

140  OPEN  'LP:'  FOR  OUTPUT  AS  FILE  #1\  OPEN  ' DATA3'  FOR  INPUT  AS  FILE  #3 

150  OPEN  'DATA4'  FOR  INPUT  AS  FILE  *4\  OPEN  " DATA5'  FOR  INPUT  AS  FILE  *5 

160  INPUT  #3,CLA,C0RR*,CRA,LSPAN,EP,FYP,SEISZ 

170  INPUT  #3,UWP,QDL,QLA,QLP,QLV,QS,QXP,QXV 

180  INPUT  #3,LFT(1 ) ,LFT ( 2) , LFT (3) ,LFT( 4) ,QLR( 1 ) , QLR(3) 

190  INPUT  #3,T(1),T(2),T(3),T(4),QW(1),QW(2),QW(3),QW(4) 

200  INPUT  *4, HCOPY$,QD I ,SHP, LWS.FYS.ES, QLRD.QLAD.WB 
210  INPUT  #4 ,LBRC( 1 ) ,LBRC( 2) , LBRC( 3) ,LBRC( 4) , WA( 1 ) ,WA( 2) 

220  INPUT  #4,WA(3) ,WA(4) ,DSA(1) ,DSA(2) ,DSA(3) ,LY(1) ,LY(2) 

230  INPUT  *4,LY(3) ,LY(4) ,WELDi(l) ,WELD*(2) ,WELD*(3) ,WELD*(4) 

240  INPUT  #5,SS(1) ,SS(2) ,SS(3) ,SS(4) 

250  CLOSE  *3, #4, #5 

260  IF  HCOPY*«'N'  GOTO  280 

2/0  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*( 27)+' [ ?5i ' 

280  PRINT  \  PRINT  N  PRINT  TAB(25) ; 'PINNED-END  STIFFENER  DESIGN'S  PRINT  \  PRINT 
290  AVAIL=0 

300  PRINT  'ENTER  A  TRIAL  NOMINAL  DEPTH  (IN  INCHES)  FOR  THE  STIFFENER  SECTIONS' 
310  PRINT  '(REMINDER:  STIFFENERS  ON  ALL  FOUR  SIDES  OF  THE  DUCT  ARE  DESIGNED 
320  PRINT  'TO  httVE  THE'\  PRINT  'SAME  NOMINAL  DEPTH)' 

330  INPUT  TRIALNOS  PRINT 

340  REM  Test  to  insure  that  chosen  trial  nominal  depth  i s  available 
350  ON  SHP  GOTO  360,400,450 

360  IF  TRIALND=6  OR  TRIALND=8  OR  TRIALND=10  THEN  AVAIL=1S  GOTO  480 
370  IF  TRIALND=12  OR  TRIALND=14  OR  7RIALND=16  THEN  AVAIL=1S  GOTO  480 

380  IF  TRIALND=18  OR  TRIALND=21  OR  TRI ALND=24  THEN  AVAIL=1S  GOTO  480 

390  GOTO  480 

400  IF  TRIALND=3  OR  TRIALND=4  OR  TRIALND=5  THEN  AVAIL=1S  GOTO  480 

410  IF  TRIALND=6  OR  TRIALND=7  OR  TRI ALND=8  THEN  AVAIL=1S  GOTO  480 

420  IF  TRIALND=9  OR  TRIALND=10.5  OR  TRIALND=12  THEN  AVAIL=1S  GOTO  480 
430  IF  TRIALND=13 . 5  OR  TRIALND=15  OR  TRIALND=16.5  THEN  AVAIL^IS  GOTO  480 
440  GOTO  480 

450  IF  TRIALND=6  OR  TRIALND=7  OR  TRIALND=8  THEN  AVA1L=1S  GOTO  480 
460  IF  TRIALND=9  OR  TRIALND=10  OR  TRIALND=12  THEN  AVAIL=1S  GOTO  480 
470  IF  TRIALND=15  THEN  AVAIL=1 
480  IF  AVAI L=1  GOTO  580 

490  PRINT  \  PRINT  'THE  TRIAL  NOMINAL  DEPTH  THAT  YOU  HAVE  CHOSEN  IS  NOT  '; 

500  PRINT  'AVAILABLE  IN  this  DESIGN'S  PRINT  'PROGRAM  FOR  THE  STIFFENER  '; 

510  PRINT  'SECTION  SHAPE  THAT  YOU  SELECTED  PREVIOUSLY.  IF  YOU' 

520  PRINT  'WISH  TO  CHANGE  THE  STIFFENER  SECTION  SHAPE  (W  SWPE,  WT  OR  '  ; 

530  PRINT  'CHAWEL) ,  YOU  MUST'S  PRINT  'INTERRUPT  THIS  PROGRAM  (PRESS  '  ; 

540  PRINT  'Interrupt  -  Do  KEYS),  AND  RELOAD  AND  RERUN  PROGRAM' 

550  PRINT  '0UCT3.  OTHERWISE,  PLEASE  ENTER  A  DIFFERENT  TRIAL  NOMINAL  '; 
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560  PRINT  'DEPTH.' 

570  GOTO  260 

580  IF  HCOPY*='N'  GOTO  600 

590  PRINT  CHR*(27)+'[?4i' 

600  PRINT  'TRANSVERSE  STIFFENERS  ARE  BEING  SELECTED;  PLEASE  WAIT' 

610  IF  HCOPY*='N'  GOTO  630 
620  PRINT  CHR*(27)+'[?5i' 

630  FOR  1=1  TO  4\SEC*(I)='*****'\WS(I)=0\  NEXT  I 
640  MAXWT=0 

650  ON  SHP  GOTO  660,670,680 

660  OPEN  'WSHAPE'  FOR  INPUT  AS  FILE  #10\  GOTO  700 

670  OPEN  'WT'  FOR  INPUT  AS  FILE  *10\  GOTO  700 

680  OPEN  'C'  FOR  INPUT  AS  FILE  #10 

690  REM  End  of  File  Check 

700  IF  f-WXWT=l  THEN  CLOSE  #10\  GOTO  1360 

710  REM  Read  W,  WT,  or  Channel  shape  properties 

720  ON  SHP  GOTO  730,740,750 

730  GOSUB  198Q\  GOTO  760 

740  GOSUB  2130\  GOTO  760 

750  GOSUB  2270 

760  IF  NDSTOTRIALND  GOTO  720 

770  REM  Check  to  see  if  section  is  heaviest  possible  section  for  that 

780  REM  nominal  depth 

790  IF  MAXND=TRIALND  THEN  MAXWT=1 

800  REM  Calculate  effective  section  properties 

810  FOR  1=1  TO  4\  IF  SEC*( I ) O'*****'  GOTO  820  ELSE  GOSUB  2410 

820  NEXT  I 

830  REM  Calculate  trial  stiffener  weights 

840  FOR  1=1  TO  4\  IF  SEC«< I )='*****'  THEN  WS( I ) =AST*UWS/144 

850  NEXT  I 

860  REM  Execute  stiffener  transverse  loading  subroutines 
870  GOSUB  2520\  GOSUB  2680 

880  REM  Calculate  axial  stresses  and  forces  in  stiffeners 
890  GOSUB  3150 
900  FOR  11=1  TO  4 

910  IF  SEC*( 1 1 )<>'*****'  GOTO  1090 

920  REM  Calculate  maximum  stiffener  and  plate  bending  stresses 

930  FOR  J=1  TO  3\  FOR  K*1  TO  2\WW( J,K)=W( 1 1 , J,K)\  NEXT  K\  NEXT  J 
940  GOSUB  3580 

950  REM  Calculate  allowable  stiffener  and  plate  axial  compressive  stress 
960  GOSUB  3710 

970  REM  Calculate  allowable  stiffener  and  plate  bending  stresses 
980  GOSUB  3810 

990  REM  Check  interaction  formulas 

1000  GOSUB  4210\  IF  FLAG«1  GOTO  1090 

1010  REM  Check  stiffener  deflections 

1020  GOSUB  5170\  IF  FLAG=1  GOTO  1090 

1030  REM  Check  stiffener  moment  of  inertia  and  gross  area  requirements 

1040  REM  (vertical  stiffeners  only) 

1050  IF  11=1  OR  11=3  GOTO  1070 

1060  GOSUB  5420\  IF  FLAG=1  GOTO  1090 

1070  SEC#( 1 1 )=SECT#\WS( 1 I )=AST*UWS/144\DST( 1 1 ) =DST\AST ( 1 1 )=AST 
1080  BF ( 1 1 ) =BF\TF( 1 1 ) =TF\TW( 1 1 )=TW\RT( 1 1 )=RT\IXS( 1 1 )  =  IXS\YS( 1 1 ) =YS 

1090  NEXT  II 

1100  FLAG=0\  FOR  1=1  TO  4\  IF  SEC*< I )='*****'  THEN  FLAG=1 
1110  NEXT  I\  IF  FLAG=1  GOTO  700 
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1120  CLOSE  *10 

1130  REM  Check  Vertical  Stiffeners  Using  Actual  Stiffener  Weights 

1140  REM  Recalulate  axial  stresses  and  forces  in  vertical  stiffeners 

1150  GOSUB  3150 

1160  FOR  11*2  TO  4  STEP  2 

1170  REM  Recalculate  maximum  stiffener  and  plate  bending  stresses 
1180  DST  *DST (II) 

1190  FOR  J=1  TO  3\  FOR  K=1  TO  2\WW( J,K)=W( 1 1 , J,K)\  NEXT  K\  NEXT  J 
1200  GOSUB  3580 

1210  REM  Recalculate  allowable  stiffener  and  plate  axial  compressive  stress 
1220  BF=BF( II )\TF=TF( 1 1 )\  GOSUB  3710 

1230  REM  Recalculate  allowable  stiffener  and  plate  bending  stresses 

1240  TW=TW( 1 1 )\RT=RT ( 1 1 )\  GOSUB  3810 

1250  REM  Recheck  interaction  formulas 

1260  GOSUB  4210\  IF  FLAG=1  GOTO  1320 

1270  REM  Recheck  vertical  stiffener  deflections 

1280  GOSUB  5170\  IF  FLAG*1  GOTO  1320 

1290  REM  Recheck  stiffener  moment  of  inertia  and  gross  area  requirements 

1300  IXS=IXS( 1 1 )\AST=AST ( 1 1 )\YS*YS( 1 1 )\  GOSUB  5420\  IF  FLAG=1  GOTO  1320 

1310  GOTO  1330 

1320  SEC*( 1 1 )='*****' 

1330  NEXT  II 

1340  FLAG=0\  FOR  1*2  TO  4  STEP  2\  IF  SEC$( I )='*****'  THEN  FLAG*1 
1350  NEXT  I\  IF  FLAG=1  GOTO  640 

1360  PRINT  \  PRINT  TAB(38) j  'PIW4ED-END  STIFFENERS'N  PRINT 

1370  PRINT  TAB(23) ; 'SIDE  1' ;TAB(38) ; 'SIDE  2' ;TAB(53) ; 'SIDE  3' ;TAB(68) :'SIDE  4' 
1380  PRINT  \  PRINT  'STIFFENER  SPACING' ;TAB(25) ;SS(1) ;TAB(40) ;SS(2) ;TAB(55) j 
1390  PRINT  SS(3) ;TAB(70) ;SS(4)\  PRINT  '  (INCHES)' 

1400  PRINT  'STIFFENER  SECTION' ;TAB( 21) ; 

1410  FOR  1*1  TO  4\  PRINT  USING  * ' CCCCCCCCCCC  ’,SEC*(I);\  NEXT  I 
1420  PRINT  \  PRINT  \  PRINT 

1430  FLAG=0\  FOR  1=1  TO  4\  IF  SEC*( I )='*****'  THEN  FLAG=1 
1440  NEXT  I\  IF  FLAG=1  GOTO  1460 
1450  GOTO  1500 

1460  PRINT  'NOTE:  -***★*’  INDICATES  THAT  AN  ADEQUATE  PINNED-END  STIFFENER 
1470  PRINT  'SECTION  WITH'N  PRINT  TAB(6) {TRIALND; ' INCH  NOMINAL  DEPTH  DOES  NOT  '; 
1480  PRINT  'EXIST.  YOU  MUST  SELECT  STIFFENER'N  PRINT  TAB( 7) ; 'SECTIONS  WITH  '; 
1490  PRINT  'A  GREATER  NOMINAL  DEPTH. '\  PRINT  \  PRINT 

1500  PRINT  'DO  YOU  WISH  TO  SELECT  PIWED-END  STIFFENERS  WITH  A  DIFFERENT  NOMI ' ; 
1510  PRINT  'ML  DEPTH? '\  PRINT  '(ENTER  Y  OR  N)' 

1520  INPUT  DIFF*\  PRINT  \  PRINT 

1530  PRINT  'DO  YOU  WISH  TO  SELECT  DIFFERENT  STIFFENER  SPACINGS?  (Y  OR  N)' 

1540  INPUT  DIFSTIFF*\  PRINT  \  PRINT  \  IF  DIFSTIFF**'N'  GOTO  1630 
1550  PRINT  'NOTE:  THIS  PROGRAM  DOES  NOT  RECHECK  MAXIMUM  PLATE  STRESSES  AND  '; 
1560  PRINT  'DEFLECT I ONS'N  PRINT  'ASSOCIATED  WITH  THE  CHANGED  STIFFENER  SPAC' ; 
1570  PRINT  'INGS.  THIS  CHECK  t«WY  BE  ACCOMPLI SHED'N  PRINT  'BY  EITHER  REFERRING' 
1580  PRINT  '  TO  THE  STRESS-DEFLECTION  TABLES  GENERATED  IN  PROGRfW  DUCT2' 

1590  PRINT  '(UNDER  OPTION  1),  OR  BY  REEXECUTING  PROGRAM  DUCT 2  WITH  THE  REVIS' ; 
1600  PRINT  'ED  STIFFENER'N  PRINT  'SPACINGS. '\  PRINT 

1610  FOR  1*1  TO  4\  PRINT  'ENTER  THE  STIFFENER  SPACING  FOR  SIDE' ; I ; ' IN  INCHES' 
1620  INPUT  SS(I)\  PRINT  \  NEXT  !\  GOTO  260 
1630  IF  DIFF*»'Y'  GOTO  260 

1640  PRINT  'DO  YOU  WISH  TO  EXECUTE  THE  RIGID  FRAME  STIFFENER  DESIGN  PROGRAM?'; 
1650  PRINT  '  (Y  OR  N)'\  INPUT  RIGID*\  PRINT 
1660  IF  RIGID**'N'  GOTO  1860 

1670  FLAG=0\  FOR  1*1  TO  3\  IF  SS( I ) <>SS( 1+1)  THEN  FLAG*1 
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1680  NEXT  I\  IF  FLAG=0  GOTO  1860 

1690  PRINT  'STIFFENER  SPACINGS  FOR  ALL  FOUR  SIDES  OF  THE  DUCT  MUST  BE  EQUAL  IF' 
1700  PRINT  '  RIGID  FRAME '\  PRINT  'STIFFENERS  ARE  USED.  THE  STIFFENER  SPACINGS' 
1710  PRINT  '  THAT  YOU  HAVE  SELECTED  ARE  NOT  ALL'\  PRINT  'EQUAL. '\  PRINT  \  PRINT 
1720  PRINT  'DO  YOU  WISH  TO  CHANGE  THE  STIFFENER  SPACINGS  PREVIOUSLY  SELECTED?  ' 
1730  PRINT  '  (Y  OR  N)'\  INPUT  C)NG*\  PRINT  \  IF  a-NG*='N'  GOTO  1830 
1740  PRINT  'NOTE:  IN  ORDER  TO  ENSURE  THAT  THESE  DIFFERENT  STIFFENER  SPACINGS  ' 
1750  PRINT  'DO  NOT  LEAD'X  PRINT  'TO  EXCESSIVE  PLATE  STRESSES  OR  DEFLECTIONS,  '; 
1760  PRINT  'THE  STRESS  AND  DEFLECTION  TABLES'N  PRINT  'GENERATED  IN  PROGRAM  '; 
1770  PRINT  'DUCT 2  (UNDER  OPTION  1)  fttY  BE  CHECKED,  OR  PROGR/*1  DUCT2' 

1780  PRINT  'f-WY  BE  REEXECUTED.' 

1790  IF  HCOPY*='N'  GOTO  1810 

1800  PRINT  CHR*(27)+'[?4i'\  PRINT  *1,CHR*<12)\  PRINT  CHR*(27)+' (?5i ' 

1810  FOR  1=1  TO  4\  PRINT  'ENTER  THE  STIFFENER  SPACING  FOR  SIDE' ;I;' IN  INCHES' 
1820  INPUT  SS(I)\  PRINT  \  NEXT  I\  GOTO  1670 

1830  PRINT  'THE  RIGID  FRAME  STIFFENER  DESIGN  PROGRAM  WILL  NOT  BE  EXECUTED.  '; 
1840  PRINT  '  DUCT  SECTION'N  PRINT  'CHECKS  WILL  NOW  BE  ACCOMPLISHED.' 

1850  RIGID*='N' 

I860  C*»','\  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  #5 

1870  PRINT  #5,SS(l);C*;SS(2);C$jSS(3);C*;SS(4)\  CLOSE  #1,#5\I0=0 

1880  DIM  WES(IO) ,WS(I0) ,W( 10,10,10) ,QD(I0) ,WA(I0) , DALLOW(IO) , LY(IO) ,AST(I0) 

1890  DIM  WELDS(IO) ,LBRC(I0) ,FB(I0,I0) ,FBM( 10 , 1 0 , 1 0) ,WW(I0,I0) , SEC*(I0) , IXS( 10) 
1900  DIM  LFT( 10) ,PLANGLE( 10) ,T( 10) ,SS( 10) ,QW( 10) , QLR( 10) ,BE( 10) 

1910  DIM  DST(IO) ,Y1(I0),IE(I0),RE(I0),BF(I0),TF(I0) ,TW(I0) ,RT(IO) ,AE( 10) 

1920  DIM  PVP( 10,10,10) ,FAM( 10,10, 10), P( 10, 10) ,DSA( 10) 

1930  PRINT  CHR*<27)+'[?4i'\  IF  RIGID*='Y'  GOTO  1950 

1940  PRINT  'CHAINING  TO  PROGRAM  DUCT7;  PLEASE  WAIT'\  CHAIN  'DUCT7' 

1950  RECALC=0\  PRINT  'CHAINING  TO  PROGRttl  DUCT5;  PLEASE  WAIT' 

1960  CHAIN  'DUCT5'  WITH  RECALC 

1970  REM  W  SHAPE  PROPERTY  RETRIEVAL  SUBROUTINE 

1980  LINPITT  #10,WSHAPE1*\  LINPUT  *10,WSIttPE2* 

1990  LINPUT  *10 ,WSHAPE3*\  LINPUT  *10  .WSHAPE4* 

2000  SECT*=MI D*( WSHAPE1* , 1% , 7%) 

2010  AST=VAL(MID*(WSHAPE1*,15%,6%)) 

2020  DST  =VAL ( M I D*( WSHAPE1* , 29% , 5% ) ) 

2030  NDST=VAL(MID*(WSHAPE1*,42%,2%) ) 

2040  MAXND*VAL(MI D*( WSHAPEl* , 53% , 2%) ) 

2050  TW=VAL(MID*(WSHAPE1*,5654 ,4%) ) 

2060  BF=VAL(MID$(WSHAPE1*,68%,5%) ) 

2070  TF=VAL(MID*(WSHAPE2*,6%,5%) ) 

2080  RT=VAL(MID*(WSHAPE2*,45%,4%)) 

2090  IXS=VAL(MID*(WSHAPE2*,54%,7%) ) 

2100  YS=DST/2 
2110  RETURN 

2120  REM  WT  PROPERTY  RETRIEVAL  SUBROUTINE 

2130  LINPUT  *10 ,WT1*\  LINPUT  *10,WT2*\  LINPUT  *10,WT3* 

2140  SECT*=MID*(WT1*,1%,12%) 

2150  AST=VAL(MID*(WT1*,18%,5%) ) 

2160  DST=VAL(MID*(WT1*,31%,5%) ) 

2170  NDST=VAL(MID*(WT1$,44%,4%) ) 

2180  MAXN0=VAL(MID*(WT1*,53%,4%) ) 

2190  TW=VAL(MID*(WT1*,58%,4%) ) 

2200  BF=VAL(MID*(WT1*,70%,5%) ) 

2210  TF=VAL(MI0*(WT2*,6% , 5%) ) 

2220  RT»VAL(MID*(WT2*,45%,4%) ) 

2230  IXS=VAL(MID*(WT2*,56%,6%) ) 
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2240  YS=VAL(MID*(WT3*,19«,5K)) 

2250  RETURN 

2260  REM  CHANNEL  PROPERTY  RETRIEVAL  SUBRL  TINE 
2270  LINPUT  #10,C1*\  LINPUT  #10,C2*\  LINPUT  *10, C3* 

2280  SECT*=MI D*( Cl* , 1% , 8% ) 

2290  AST=VAL(MID*<C1*,18«,5«)) 

2300  DST=VAL(MID*(C1*,31»,5%)) 

2310  NDST=VAL(MID*<Cl*,31%,2Ji)) 

2320  MAXND=VAL(MID*(C1*,41#,2%) ) 

2330  7W=VAL(MID*(C1*,46»,4K)) 

2340  BF=VAL(MID*(Cl*,585i  ,5Ji) ) 

2350  TF=VAL(MID*(C1$,72»,45{)) 

2360  IXS=VAL<MID*(C2*,568,6«)) 

2370  YS=DST/2 
2380  RETURN 

2390  REM  STIFFENER  EFFECTIVE  SECTION  PROPERTIES  SUBROUTINE 
2400  REM  Determine  the  effective  plate  width,  BE(I) 

2410  BE( I) *1 . 5*T ( I )*SQR( EP/FYP) 

2420  REM  Determine  area  of  combined  stiffener  and  effective  plate,  AE(I) 
2430  AE( I )=AST+BE( I )*T ( I ) 

2440  REM  Determine  the  distance  to  the  effective  centroidal  axis,  Y1(I) 

2450  Yl( I )»(AST*YS+BE( I )*T( I )*<DST+T( I )/2) )/AE( I ) 

2460  REM  Determine  the  effective  moment  of  inertia,  IE(I) 

2470  IE( T )=IXS+AST*(Y1( I )-YS) A2+BE( I )*T(  I )*(T( I )A2/12+(DST+T( I )/2-Yl( I ) ) A2) 
2480  REM  Determine  the  effective  radius  of  gyration,  RE(I) 

2490  RE( I )=SQR( IE( I )/AE( I ) ) 

2500  RETURN 

2510  REM  STIFFENER  SEISMIC  LOADING  SUBROUTINE 

2520  GOSUB  2600 

2530  IF  CORR*='N'  GOTO  2550 

2540  FOR  1=2  TO  4  STEP  2\T(I)»T(I)+CRA\  NEXT  I 

2550  FOR  1=2  TO  2  STEP  2\WES( I )».45*ZS*( (UWP*T( I )/12+QDL+QDI )*SS( I )/124WS( I ) ) 

2560  NEXT  I\  IF  CORR*='N'  GOTO  2580 

2570  FOR  1=2  TO  4  STEP  2\T< I )=T( I )-CRA\  NEXT  I 

2580  RETURN 

2590  REM  SEISMIC  ZONE  COEFFICIENT  SUBROUTINE 

2600  IF  SEISZ*0  THEN  ZS=l/8\  GOTO  2660 

2610  ON  SEISZ  GOTO  2620,2630,2640,2650 

2620  ZS»3/16\  GOTO  2660 

2630  ZS=3/8\  GOTO  2660 

2640  ZS=3/4\  GOTO  2660 

2650  ZS«1 

2660  RETURN 

2670  REM  PI WED-END  STIFFENER  TRANSVERSE  LOAD  DETERMINATION  SUBROUTINE 

2680  IF  CORR*='N/  GOTO  2700 

2690  FOR  1=1  TO  3  STEP  2\T( I )=T( I )+CRA\  NEXT  I 
2700  FOR  1=1  TO  3  STEP  2\QD( I ) =UWP*T ( I )/12\  NEXT  I 
2710  REM  Pinned-End:  No  Wind  or  Seismic  Forces 
2720  REM  Top  Stiffener 

2730  W( 1 , 1 , 1 ) =( QD( 1 ) +QDL+QD I +QLV+QLR ( 1 )+QS)*SS( 1 )/l 2+WS< 1 ) 

2740  W( 1 , 1 ,2) ■( QD( 1 )+QDL+QDI -QLP)*SS( 1 )/12+WS( 1 ) 

2750  REM  Side  Stiffeners 
2760  FOR  1=2  TO  4  STEP  2 

2770  W< I ,1 ,1)=QLV*SS( I )/12NW( I ,1 ,2)=(-QLP-CLA*QLA)*SS( I )/12\  NEXT  I 
2780  REM  Bottom  Stiffener 

2790  W( 3 , 1 , 1 ) »( -QD( 3) -QDL-QDI+QLV)*SS( 3)/l 2-WS( 3) 
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2800  W3121=( -QD( 3) -QDL-QDI -QLP-QLA)*SS( 3)/12-WS( 3) 

2810  W3122=( -QD( 3) -QDL-QDI -QLR ( 3) -QLA)*SS<  3)/l 2-WS( 3) 

2820  IF  ABS(W3121)>ABS(W3122)  THEN  W(3,l ,2)=W3121  ELSE  W(3,l ,2)=W3122 
2830  REM  Pinned-End:  Wind  or  Seismic  Forces 

2840  REM  Top  Stiffener 

2850  U(l,2,l)*0 

2860  Wd  ,2,2)  =  (QD( D+QDL+QDI -QLP+QW( 1 ) )*SS( 1 )/12+WS( 1 ) 

2870  REM  Side  Stiffeners 
2880  FOR  1=2  TO  4  STEP  2 
2890  WI211=(QLV+QW(4))*SS(I)/12 

2900  WI212=QLV*SS(I)/12+WES(I) 

2910  IF  WI211>WI212  THEN  W( I ,2,1)=WI211  ELSE  W( I ,2,1)=WI212 
2920  WI221=(-QLP+QW(2)-CLA*QLA)*SS( I )/12 
2930  WI222=(-QLP-CLA*QLA)*SS( I )/12-WES( I ) 

2940  IF  ABS(WI221) >ABS(W1222)  THEN  k( I ,2,2)=WI221  ELSE  W( I ,2,2) =WI 222 
2950  NEXT  I 

2960  REM  Bottom  Stiffener 
2970  W(3,2,l)=0 

2980  W3221=( -QD( 3) -QDL-QDI -QLP-QLA+QW( 3) )*SS( 3)/12-WS( 3) 

2990  W3222=( -QD( 3) -QDL-QDI -QLR( 3) -QLA+QW( 3) )*SS( 3)/12-WS( 3) 

3000  IF  ABS(W3221) >ABS(W3222)  THEN  M(3,2,2)=W3221  ELSE  W(3,2,2)«W3222 
3010  REM  Pinned-End:  Excursion  Conditions 

3020  REM  Top  Stiffener 

3030  W( 1 , 3 , 1 ) =( QD( 1 )+QDL+QDI+QLR( 1 )+QS+QXV)*SS( 1 )/12+WS( 1 ) 

3040  W( 1 , 3 , 2) =( QD( 1 )+QDL+QDI -QXP)*SS( 1 )/124WS( 1 ) 

3050  REM  Side  Stiffeners 
3060  FOR  1=2  TO  4  STEP  2 

3070  W( I ,3,1)=QXV*SS< I )/12\W( I ,3,2)=(-QXP-CLA*QLA)*SS( I )/12\  NEXT  I 
3080  REM  Bottom  Stiffener 

3090  W(3,3,1)=(-QD(3)-QDL-Q0I+QXV)*SS(3)/12-WS(3) 

3100  W( 3 , 3 , 2) =( -QD<  3) -QDL-QDI -QLA-QXP)*SS( 3)/12-WS( 3) 

3110  IF  CORR*='N'  GOTO  3130 

3120  FOR  1=1  TO  3  STEP  2\T ( I ) =T ( I ) -CRA\  NEXT  I 
3130  RETURN 

3140  REM  PlhNED-END  STIFFENER  AXIAL  FORCE  AND  AXIAL  STRESS  SUBROUTINE 

3150  IF  C0RR*='N'  GOTO  3180 

3160  FOR  1=1  TO  4\T ( I ) =T( I )+CRA\  NEXT  I 

3170  REM  Axial  Force  due  to  Internal  Vacuum  or  Pressure 

3180  FOR  1=1  TO  4 

3190  ON  I  GOTO  3200,3240,3200,3240 

3200  PVP(I ,l,l)=QLV*SS(I)*(LFT(2)+LFT(4))/48 

3210  PVP(I,2,l)=QXV*SS(I)*(LFT(2)+LFT(4))/48 

3220  PVP( I ,1 , 2)=-QLP*SS( I )*(LFT(2)+LFT(4) )/48 

3230  PVP(I,2,2)«-QXP*SS(I)*(LFT(2)+LFT(4))/48\  GOTO  3280 

3240  PVP(I, l,l)=QLV*SS(I)*(LFT(l)+LFT(3))/48 

3250  PVP(I,2,l)=QXV*SSd)*(LFT(l)+LFT(3))/48 

3260  PVP( 1,1,2) =-QLP*SS( I )*( LFT< 1 )+LFT( 3) )/48 

3270  PVP( 1,2,2) =-QXP*SS (I ) * ( LFT ( 1 ) +LFT ( 3 ) ) /48 

3280  NEXT  I 

3290  REM  Axial  Force  due  to  Tension  Field  Action 

3300  TERMl=(Td)*LFTd)+T(2)*LFT(2)+T(3)*LFT(3)+T(4)*LFT(4)  )*UWP/12 

3310  TERM2=(QDI+QDL)*(LFT(1)+LFT(2)+LFT(3)+LFT(4)) 

3320  TERM3=(WS(1)*LFT(1)/SS(1)+WS(2)*LFT(2)/SS(2) )*12 
3330  TERM4=(WS(3)*LFT(3)/SS(3)+WS(4)*LFT(4)/SS( 4) )*12 
3340  IF  QLRD>QS  THEN  TERM5=QLRD*LFT(1)  ELSE  TERM5=QS*LFT ( 1 ) 

3350  TERM6=QLAD*LFT( 3)+LW(  1  )+W( 2)+W( 3)+WR( 4) 
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WG*TERM1+TERM2+TERM3+TERM4+TERM5+TERM6 
PS=(WG*(LSPAN-SS(2)/12)+W8)/4 
REM  Calculate  Maximum  Axial  Stress 

REM  Top  and  bottom  stiffeners 

FOR  1*1  TO  3  STEP  2\  FOR  J=1  TO  2\FAM( I , J,1)=PVP( I , J,1)/(1000*AE( I ) ) 
FAM< I , J,2)=PVP( I , J,2)/(1000*AE( I ) )\  NEXT  J\  NEXT  I 
REM  Side  (vertical)  stiffeners 

FOR  1*2  TO  4  STEP  2\  FOR  J*1  TO  2 

FAM(I ,J,1)=(PVP(I ,J,1)+PS)/(1000*AE(I)) 

FAM( I , J,2)=PS/(1000*AE( I ) )\  NEXT  J\  NEXT  I 
REM  Calculate  Axial  Compressive  Forces  for  Use  in  Computing  Maximum 
REM  Deflections 

FOR  1*1  TO  4\  FOR  J=1  TO  2 

ON  I  GOTO  3500,3510,3500,3510 
P(I ,J)*PVP(1 ,J,1)\  GOTO  3520 
P(I  ,J)=PVP<! ,J,1)+PS 
NEXT  J\  NEXT  I 
IF  CORR*='N'  GOTO  3550 
FOR  1=1  TO  4\T ( I ) =T ( I ) -CRA\  NEXT  I 
RETURN 

REM  MAXIMUM  BENDING  STRESS  SUBROUTINE 
REM  Positive  Loading 

FOR  J=1  TO  3 

FBM<1,J,1)=.0015*WW(J,1)*LFT(II)A2*(DST-Y1(II))/IE(II) 

FBM<2, J,1)=.0015*WW( J,1)*LFT( I 1 ) A2*Y1( 1 1 )/IE( 1 1 ) 

FBM(3,  J,1)  =  .0015*14*K  J,1)*LFT(  I 1 )  A2*(DST+T(  1 1  )-Yl(  1 1 )  )/IE(  1 1 ) 

NEXT  J 

REM  Negative  Loading 

FOR  J*1  TO  3 

FBM(1 , J,2)=.0015*WW( J,2)*LFT( I 1 )A2*Y1(I I )/IE( 1 1 ) 

FBM(2, J,2)=.0015*WW( J,2)*LFT( I 1 ) A2*(DST-Y1( 1 1 ) )/IE( 1 1 ) 

FBM(3, J,2)=.0015*WW( J,2)*LFT( I 1 )A2*(DST+T( 1 1 )-Yl( I I))/IE(II) 

NEXT  J 
RETURN 

REM  ALLOWABLE  AXIAL  COMPRESSIVE  STRESS  SUBROUTINE 

CC=SQR( 2*PI A2*ES/FYS) 

IF  12*LFT ( 1 1 )/RE( 1 1 ) >CC  GOTO  3780 

IF  SHP*3  THEN  IF  8F/TF>95/SQR(FYS)  GOTO  3780  ELSE  GOTO  3750 

IF  BF/(2*TF) >95/SQR(FYS)  GOTO  3780 

TERMl*(l-( (12*LFT( 1 1 )/RE( 1 1 ) )A2)/( 2*CCA2) )*FYS 

TERM2-5/3+4 . 5*LFT ( 1 1 )/(RE< 1 1 )*CC)-216*(LFT( 1 1 )/RE( 1 1 ) )A3/CCA3 

FA*TERM1/TERM2\  GOTO  3790 

FA-PI A2*ES/(276*(LFT< 1 1 )/RE( 1 1 ) ) A2) 

RETURN 

REM  ALLOWABLE  BENDING  STRESS  SUBROUTINE 
IF  SHP-3  GOTO  4110 
REM  W  and  WT  Shapes 
REM  Positive  Loads 
IF  WELD*(  1 1)  O'C'  GOTO  3980 
IF  FAM( 11,1 ,1)/FYS> .16  GOTO  3880 
IF  DST/TW>(640/SQR(FYS) )*(1-3.74*FAM( 11,1 ,1 )/FYS)  GOTO  3980 
GOTO  3890 

IF  DST/TW>257/SQR(FYS)  GOTO  3980 
IF  L8RC( II) >76/SQR(FYS)  GOTO  3980 
IF  LBRC( 1 1 ) >20000*TF*BF/< (DST+T( I 1 ) )*FYS)  GOTO  3980 
IF  BF/(2*TF) >=95/SQR(FYS)  GOTO  3980 
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3920  IF  8F/(2*TF)>65/SQR(FYS)  GOTO  3940 

3930  FBI 1,1)*. 66*FYS\FB( 2 , 1 ) 3 . 66*FYS\FB( 3,1)=. 66*FYP\  GOTO  4080 
3940  FBI 1 , 1 ) *FYS*  < . 79- . 0 0  2*BF*SQR ( FYS ) / ( 2*TF ) ) 

3950  FB(2,1)*FB(1,1) 

3960  FB(3,1)*FB(1,1)*FYP/FYS 
3970  GOTO  4080 
3980  F8(1,1)*.6*FYS 
3990  FB(3,1)*.6*FYP 

4000  IF  BF/(2*TF) >95/SQR(FYS)  THEN  FB(2,1)=0\  GOTO  4080 

4010  IF  LBRC( 1 1 ) <*76*BF/SQR(FYS)  THEN  FB(2,1)  =  .6*FYS\  GOTO  4080 

4020  IF  LBRC( 1 1 ) >SQR(510000/FYS)*RT  GOTO  4050 

4030  FB(2,l)=(2/3-FYS*(LBRC( 1 1 )/RT) A2/,153E+07)*FYS 

4040  IF  FB(2,1)>.6*FYS  THEN  FB(2,1)=.6*FYS\  GOTO  4080 

4050  FBI 2, 1 ) =170000/1 LBRCI 1 1 )/RT)A2 

4060  IF  FB(2,1)>.6*FYS  THEN  FB<2,1)=.6*FYS 

4070  REM  Negative  Loads 

4080  FBI 1 , 2 ) = . 6*FYS\FB( 2 ,  2)  = . 6*FYS\FB( 3,2)=. 6*FYP\  GOTO  4190 

4090  REM  Channels 

4100  REM  Positive  Loads 

4110  F8(l , 1)=.6*FYS 

4120  FB(3,1)=.6*FYP 

4130  IF  BF/TF>95/SQR( FYS)  THEN  FB(2,1)=0\  GOTO  4180 

4140  IF  LBRC( II) <=76*BF/SQR(FYS)  THEN  FB(2,1)=.6*FYS\  GOTO  4180 

4150  FBI 2,1) =12000*1 BF*TF)/( LBRCI 1 1 )*(DST+T( II))) 

4160  IF  FB(2, 1) > .6*FYS  THEN  FB(2,1)=.6*FYS 
4170  REM  Negative  Loads 

4180  FB< 1 , 2) = . 6*FYS\FB( 2,2)=. 6*FYS\FB( 3,2)=. 6*FYP 
4190  RETURN 

4200  REM  INTERACTION  FORMULAS  SUBROUTINE 
4210  FLAG=0 

4220  REM  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic  Forces 

4230  REM  Positive  loading 

4240  IF  FAMIIl ,1 ,1 )/FA> .15  GOTO  4270 

4250  IF  FAMIIl ,1 ,1)/FA+FBM( 2,1 , 1)/FB( 2,1) >1  GOTO  5140 
4260  GOTO  4300 

4270  TERM2=(1-276*AE( 1 1 )*FAM( 1 1 ,1 ,1)*LFT( 1 I )A2/(PI A2*ES*IE( II)) )*FB!2,1) 

4280  IF  FAMIIl ,1 ,l)/FAfFBM(2,l ,1)/TERM2>1  GOTO  5140 
4290  REM  Negative  Loading 

4300  ON  II  GOTO  4320,4360,4320,4360 
4310  REM  Top  and  bottom  stiffeners 

4320  IF  ABSI FAMIIl ,1,2))/! .6*FYS)+ABS(FBMI1,1,2))/FBI1,2)>1  GOTO  5140 
4330  IF  ABSI FBM( 2,1,2)) >FB! 2,2)  GOTO  5140 
4340  GOTO  4430 

4350  REM  Side  (vertical)  stiffeners 

4360  IF  FAM( 1 1 ,1 ,2)/FA> .15  GOTO  4390 

4370  IF  FAMIIl, 1 ,2)/FA+ABS(FBM(2,l ,2) )/FB(2,2) >1  GOTO  5140 

4380  GOTO  4430 

4390  TERM2=(1-276*AE( 1 1 )*FAM( 1 1 ,1 ,2)*LFT( 1 1 )A2/(PI A2*ES*IE( II)) )*FB(2,2) 

4400  IF  FAMIIl ,1 ,2)/FA+ABS(FBM(2, 1,2) )/TERM2>l  GOTO  5140 

4410  REM  Normal  Operating  Conditions,  Including  Wind  or  Seismic  Forces 

4420  REM  Positive  loading 

4430  IF  . 75*FAM! 1 1 ,1 ,1)/FA> .15  GOTO  4460 

4440  IF  . 75*FAM( 1 1 ,1 ,1)/FA+.75*FBM(2,2,1)/FB(2,1) >1  GOTO  5140 
4450  GOTO  4490 

4460  TERM2»(1-207*AE(II)*FAM(II,1,1)*LFT(II)A2/(PIA2*ES*IE(II)))*FB(2,1) 

4470  IF  ,75*FAM( 1 1 ,1 ,1)/FA+.75*F8M(2,2,1)/TERM2>1  GOTO  5140 
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4480  REM  Negative  loading 
4490  ON  II  GOTO  4510,4550,4510,4550 
4500  REM  Top  and  bottom  stiffeners 

4510  IF  ABS(FAM( 11,1,2) )/( .8*FYS)+.75*ABS(FBM(1 ,2,2) )/FB( 1 ,2) >1  GOTO  5140 
4520  IF  ABS(FBM(2,2,2) ) >(4/3)*FB(2,2)  GOTO  5140 
4530  GOTO  4620 

4540  REM  Side  (vertical)  stiffeners 

4550  IF  .75*FAM( 1 1 ,1 ,2)/FA> .15  GOTO  4580 

4560  IF  .75*FAM( 1 1 ,1 ,2)/FA+. 75*ABS(FBM(2,2,2) )/FB( 2,2) >1  GOTO  5140 
4570  GOTO  4620 

4580  TERM2»(1-207*AE( 1 1 )*F*1< 1 1 ,1 ,2)*LFT( 1 1 )A2/( PI A2*ES*IE( II)) )*FB( 2 ,2) 

4590  IF  .75*FAM( 1 1 ,1 ,2)/FA+.75*ABS(FBM(2,2,2) )/TERM2>l  GOTO  5140 

4600  REM  Excursion  Conditions 

4610  REM  Positive  loading 

4620  IF  . 6*FAM( 1 1 ,2,1)/FA> .15  GOTO  4650 

4630  IF  . 6*FAM( 1 1 ,2,1)/FA+.6*FBM(2,3,1)/FB(2,1) >1  GOTO  5140 

4640  GOTO  4700 

4650  FB1=(5/3)*F8(2,1) 

4660  IF  FBDFYS  THEN  FB1=FYS 

4670  TERM2*( 1-144*AE( 1 1 )*FAM( 1 1 ,2,1)*LFT( 1 I )A2/(PI A2*ES*IE( II)) )*FB1 

4680  IF  . 6*FAM( 11,2, 1 )/FA+FBM( 2 ,3,1 )/TERM2>l  GOTO  5140 

4690  REM  Negative  loading 

4700  ON  II  GOTO  4720,4760,4720,4760 

4710  REM  Top  and  bottom  stiffeners 

4720  IF  ABS(FAM( II ,2,2) )/FYS+ABS(FBM(l ,3,2) )/FYS>l  GOTO  5140 
4730  IF  ABS(FBM(2,3,2) ) >FYS  GOTO  5140 
4740  GOTO  4820 

4750  REM  Side  (vertical)  stiffeners 
4760  IF  FAM( II  ,2,2)7FYS> .15  GOTO  4790 

4770  IF  FAM(II,2,2)/FYS+ABS(FBM(2,3,2))/FYS>1  GOTO  5140 

4780  GOTO  4820 

4790  TERM2=(1-144*AE( 1 1 )*F<*I( 1 1 ,2,2)*LFT( 1 1 ) A2/(PI A2*ES*IE( II)) )*FYS 

4800  IF  FAM( 1 1 ,2,2)/FYS+ABS(FBM(2,3,2) )/TERM2>l  GOTO  5140 
4810  REM  CHECK  («WXIMUM  ADJACENT  EFFECTIVE  PLATE  STRESS 
4820  IF  FYP>=*FYS  GOTO  5150 

4830  REM  Normal  Operating  Conditions,  Excluding  Wind  and  Seismic  Forces 
4840  REM  Positive  loading 

4850  IF  FBM(3,1 , 1) >FB(3,1)  OR  FAM( 1 1 ,1 ,1) > .6*FYP  GOTO  5140 

4860  REM  Negative  loading 

4870  ON  II  GOTO  4890,4920,4890,4920 

4880  REM  Top  and  bottom  stiffeners 

4890  IF  ABS(FBM(3,1,2))>FB(3,2)  OR  ABS(FAM( 11,1,2)) > ,6*FYP  GOTO  5140 
4900  GOTO  4950 

4910  REM  Side  (vertical)  stiffeners 

4920  IF  FAM(II ,l,2)/( ,6*FYP)+ABS(FBM(3,1,2))/FB(3,2)>1  GOTO  5140 
4930  REM  Normal  Operating  Conditions,  Including  Wind  or  Seismic  Forces 
4940  REM  Positive  loading 

4950  IF  FBM(3,2,1) >(4/3)*FB(3,l)  OR  FAM(I I ,1 ,1) >.8*FYP  GOTO  5140 

4960  REM  Negative  loading 

4970  ON  II  GOTO  4990,5020,4990,5020 

4980  REM  Top  and  bottom  stiffeners 

4990  IF  ABS(FBM(3,2,2))>(4/3)*FB(3,2)  OR  ABS(FAM( 1 1 ,1 ,2) ) > . 8*FYP  GOTO  5140 
5000  GOTO  5050 

5010  REM  Side  (vertical)  stiffeners 

5020  IF  FAM( 1 1 ,1 ,2)/( . 8*FYP)+. 75*ABS(FBM(3,2,2) )/FB(3,2) >1  GOTO  5140 
5030  REM  Excursion  Conditions 
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5040  REM  Positive  loading 

5050  IF  FBM(3,3,1) >FYP  OR  FAM( 1 1 ,2,1) >FYP  GOTO  5140 

5060  REM  Negative  loading 

5070  ON  II  GOTO  5090,5120,5080,5120 

5080  REM  Top  and  bottom  stiffeners 

5090  IF  ABS(FBM(3,3,2) ) >FYP  OR  ABS(FAM( 1 1 ,2,2) ) >FYP  GOTO  5140 
5100  GOTO  5150 

5110  REM  Side  (vertical)  stiffeners 

5120  IF  FAM(I1,2,2)/FYP+ABS(FBM(3,3,2))/FYP>1  GOTO  5140 

5130  GOTO  5150 

5140  FLAG-1 

5150  RETURN 

5160  REM  COMBINED  STIFFENER  AND  ADJACENT  EFFECTIVE  PLATE  DEFLECTION  SUBROUTINE 
5170  FLAG-0 

5180  REM  Calculate  Maximum  Allowable  Stiffener  Deflections 
5190  FOR  J*1  TO  3\DALL0W( J) -LFT ( 1 1 )*12/DSA( J)\  NEXT  J 

5200  REM  Calculate  Maximum  Stiffener  Deflections  and  Compare  to  Allowables 

5210  REM  Simultaneous  axial  compression  and  transverse  loading 

5220  FOR  J=1  TO  3 

5230  ON  J  GOTO  5250,5250,5270 

5240  REM  Normal  operating  conditions 

5250  W=W(J,1)\P=P(II,1)\  GOTO  5280 

5260  REM  Excursion  conditions 

5270  W=WW(J,1)\P=P(II ,2) 

5280  K1=SQR(P/(1000*ES*IE( II))) 

5290  DMAX=W*(1/C0S(6*K1*LFT(I1))-18*K1A2*LFT(II)A2-1)/(12*K1A2*PS) 

5300  IF  DMAX>DALL0W(J)  GOTO  5390 

5310  NEXT  J 

5320  IF  1103  GOTO  5400 

5330  REM  Transverse  loading  only  (bottom  stiffener) 

5340  FOR  J=1  TO  3 

5350  DMAX=.0225*ABS(WW( J,2) )*LFT( 1 1 )A4/(ES*IE( II)) 

5360  IF  DMAX>DALL0W(J)  GOTO  5390 

5370  NEXT  J 

5380  GOTO  5400 

5390  FLAG-1 

5400  RETURN 

5410  REM  AISC  1.10.5.4  STIFFENER  MOMENT  OF  INERTIA  AND  GROSS  AREA  REQUIREMENTS 
5420  FLAG-0 

5430  REM  Stiffener  Moment  of  Inertia  Requirement 
5440  IW»IXS+AST*(DST-YS+T(II)/2)A2 
5450  IF  11=2  THEN  LYT*LY(2)\LYB=LY(3)\  GOTO  5470 
5460  LYT =LY(1)\LYB*LY(4) 

5470  H4EB-12*LFT( 1 1 ) -LYT-LYB 

5480  IF  IW<(  WEB/50  )A4  GOTO  5610 

5490  REM  Stiffener  Gross  Area  Requirement 

5500  ALPHA*SS(  1 1  )/WEB 

5510  K2=4+( 5 . 34/ALPHAA2) 

5520  CV-45000*K2/(FYP*(WEB/T(II))A2) 

5530  IF  CV> .8  THEN  CV=190*SQR(  K2/FYP)/(  WEB/T (II)) 

5540  FVAVG=WG*LSPAN/(  4000*WEB*T (II)) 

5550  FVALL=FYP*CV/2 . 89 

5560  IF  FVALL) . 4*FYP  THEN  FVALL=.4*FYP 

5570  BETA-2. 4*FVAVG/FVALL 

5580  AREQ=(1-CV)*(ALPHA-ALPHAA2/SQR(1+ALPHAA2) )*FYP*WEB*T( 1 1 )*BETA/( 2*FYS) 

5590  IF  AST <AREQ  GOTO  5610 
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SET  NO  DOUBLE 

10  REM  PROGRAM  NAME:  DUCTS 
20  REM 

30  REM  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  COMPUTE  THE  TRANSVERSE  LOADS  AND 
40  REM  LOAD  COMBINATIONS  TO  BE  DESIGNED  FOR  IN  THE  RIGID  FfWIE  DESIGN  PROGRAM 
50  REM 

60  PROGRAM  DUCT5< RECALC) 

70  LET  I 3=3\I 4=4\I12=12\I 18=18\I 36=36 

80  DIM  HES( 14) ,WS( 14) ,W1( 14, 1 18) ,W2( 14, 1 36) ,W3( 14, 112) ,QD^ 14) 

90  DIM  T(I4),SS(I4),QW(I4),QLR(I3) 

100  OPEN  'DATA3'  FOR  INPUT  AS  FILE  *3\  OPEN  'DATA4'  FOR  INPUT  AS  FILE  *4 

110  OPEN  'DATA5'  FOR  INPUT  AS  FILE  *5 

120  INPUT  #3 , CLA , CORR* , CRA , LSPAN f EP , FYP , SE I SZ 

130  INPUT  #3 , UWP , QDL , QLA , QLP , QLV , QS , QXP , QXV 

140  INPUT  #3,LFT(1),LFT(2),LFT(3),LFT(4),QLR(1),QLR(3) 

150  INPUT  #3,T(1),T(2),T(3),T(4),QW(1),QW<2),QW(3),QW(4) 

160  INPUT  #4 , HCOPY* ,  QDI , SHP , UWS , FVS , ES , QLRD , QLAD , WB 
170  INPUT  *5,SS(1),SS(2),SS(3),SS(4) 

180  CLOSE  *3, #4 ,*5 

190  PRINT  \  PRINT  'CALCULATING  TRANSVERSE  LOADS  AND  LOAD  COMBUSTIONS;  PLEASE 

200  PRINT  'WAIT'N  PRINT 

210  IF  RECALC=0  OR  RECALC*2  THEN  240 

220  OPEN  'DATA7'  FOR  INPUT  AS  FILE  *7 

230  INPUT  *7,WS(1),WS(2),WS(3),WS<4)\  CLOSE  #7 

240  IF  CORR*='N'  GOTO  270 

250  FOR  1=1  TO  4\T ( I ) =T( 1 )+CRA\  NEXT  I 

260  REM  DETERMINE  SEISMIC  ZONE  COEFFICIENT 

270  IF  SEISZ=0  THEN  ZS-1/8N  GOTO  340 

280  ON  SEISZ  GOTO  290,300,310,320 

290  ZS=3/16\  GOTO  340 

300  ZS=3/8\  GOTO  340 

310  ZS=3/4\  GOTO  340 

320  ZS-1 

330  REM  DETERMINE  STIFFENER  SEISMIC  LOADING 

340  FOR  1=2  TO  4  STEP  2\WES( I )  =  .45*ZS*( (UWP*T( I )/12+QDL+QDI )*SS( I )/12+WS(  I) ) 

350  NEXT  I\  IF  CORR*='N'  GOTO  380 

360  FOR  1=2  TO  4  STEP  2\T( I )=T( I ) -CRAN  NEXT  I 

370  REM  CALCULATE  RIGID  FRAME  STIFFENER  TRANSVERSE  LOADING  CASES 

380  FOR  1=1  TO  3  STEP  2\QD( I )=UWP*T( I )/12\  NEXT  I 

390  REM  Normal  Operation,  Excluding  Wind  and  Seismic  Effects 

400  W1(1,1)=(QD(1)+QDL+QDI+QLV+QLR(1)+QS)*SS(1)/12+WS(1) 

410  W1(2,1)=(QLV-CLA*QLA)*SS(2)/12\W1(4,1)=W1(2,1) 

420  W1 ( 3 , 1 ) =( -QD( 3) -QOL-QO I +QLV-QLA ) *SS ( 3 ) /I 2-WS ( 3 ) 

430  W1(1,2)=(QD(1)+QDL+QDI+QLV)*SS(1)/12+WS(1) 

--40  W1(2,2)=(QLV-CLA*QLA)*SS(2)/12\W1(4,2)=W1(2,2) 

450  W1 ( 3 , 2) =( -QD( 3) -QDL-QDI+QLV-QLA)*SS( 3)/12-WS( 3) 

460  W1(1,3)=(QD(1)+QDL+QDI+QLV+QLR(1)+QS)*SS(1)/124WS(1) 

470  W1 ( 2 , 3 ) =QLV*SS( 2 )/12\Wl (4,3) =W1 (2,3) 

480  W1(3,3)=(-QD(3)-QDL-QDI+QLV)*SS(3)/12-WS(3) 

490  W1(1,4)=(QD(1)+QDL+QDI+QLV)*SS(1)/12-H4S(1) 

500  W1(2,4)=QLV*SS(2)/12\W1(4,4)=W1(2,4) 

510  Wl( 3, 4) =(-QD( 3) -QDL-QDI+QLV)*SS( 3)/12-WS( 3) 

520  Wl(l ,5)=(QD(1)+QDL+QDI-QLP+QLR(1)+QS)*SS(1)/124WS(1) 

530  W1(2,5)=(-QLP-CLA*QLA)*SS<2)/12\W1(4,5)=W1(2,5) 

540  W1 ( 3 ,5) =( -QD( 3) -QDL-QDI -QLP-QLA)*SS( 3)/12-WS( 3) 

550  FOR  1=1  TO  4\W1 (I,6)=W1(I,5)\  NEXT  I 
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560  HI ( 1 , 7) =  ( QD(1 )+QDL+QDI -QLP)*SSd )/l 2+WS( 1 ) 

570  HI ( 2 , 7)=<-QLP-CLA*QLA)*SS(2)/12\Hl ( 4 , 7) =H1 ( 2 , 7) 

580  Hl( 3, 7) =( -QD( 3) -QDL-QDI -QLP-QLA)*SS<  3)/12-HS( 3) 

590  FOR  1=1  TO  4\H1(I,8)=H1(I,7)\  NEXT  I 

600  H1(1,9)=(QD(1)+QDL+QDI-QLP+QLR(1)+QS)*SS(1)/12+HS(1) 

610  H1(2,9)=-QLP*SS(2)/12\H1(4,9)=H1(2,9) 

620  H1(3,9)=(-QD(3)-QDL-QD1-QLP)*SS(3)/12-HS(3) 

630  FOR  1=1  TO  4\H1(I ,10)=H1(I ,9)\  NEXT  I 
640  HI ( 1 , 11 ) =( QD( 1 )+QDL+QDI -QLP) *SS( 1 )/12+HS( 1 ) 

650  HI ( 2 , 11 ) =-QLP*SS( 2)/12\Hl (4,11) *H1 (2,11) 

660  Hl( 3, 11 ) =( -QD( 3) -QDL-QDI -QLP)*SS( 3)/12-HS( 3) 

670  FOR  1=1  TO  4\H1(I ,12)=H1<I ,11)\  NEXT  I 

680  H1(1,13)=(QD(1)+QDL+QDI+QLR(1)+QS)*SS(1)/12+HS(1) 

690  H1(2,13)=-CLA*QLA*SS(2)/12\W1(4,13)=H1<2,13) 

700  Hl( 3, 13) =( -QD( 3) -QDL-QDI -QLA-QLR( 3) )*SS( 3)/12-HS( 3) 

710  H1(1,14)=(QD(1)+QDL+QDI)*SS(1)/12+HS(1) 

720  HI ( 2 , 1 4 ) =-CLA*QLA*SS ( 2 ) /I 2\H1 (4,14) =H1 (2,14) 

730  H1(3,14)=(-QD(3)-QDL-QDI-QLA-QLR(3) )*SS(3)/12-HS(3) 

740  H1(1,15)=(QD(1)+QDL+QDI+QLR(1)+QS)*SS(1)/12+HS(1) 

750  HI ( 2 , 15) =-CLA*QLA*SS( 2)/12\Hl ( 4 , 15) =H1 ( 2 , 15) 

760  H1(3,15)=(-QD(3)-QDL-QDI-QLA)*SS(3)/12-HS(3) 

770  HI ( 1 , 16) =( QD(1 )+QDL+QDI+QLR( 1 )+QS )*SS( 1 )/124WS( 1 ) 

780  H1(2,16)=0\H1(4,16)=0 

790  H1(3,16)=(-QD(3)-QDL-QDI-QLR(3) )*SS(3)/12-HS(3) 

800  HI ( 1 , 17) =( QD( 1 )+QDL+QDI )*SS(1 )/l 2+HS( 1 ) 

810  HI ( 2 , 1 7 ) =0\H1 ( 4 , 1 7 ) =0 

820  Hl( 3,17) =(-QD( 3) -QDL-QDI -QLR( 3) )*SS(3)/12-HS(3) 

830  Hl(l ,18)=(QD(1)+QDL+QDI+QLR(1)+QS)*SS(1)/124WS(1) 

840  H1(2,18)=0\H1(4,18)=0 

850  H1(3,18)=(-QD(3)-QDL-QDI )*SS(3)/12-HS(3) 

860  REM  Normal  Operation,  Including  Hind  or  Seismic  Effects 
870  H2(1,1)=(QD(1)+QDL+QDI+QLV+QLR(1)+QS+QH(1))*SS(1)/12+HS(1) 
880  H2( 2 , 1 ) =( QLV-CLA*QLA+QH( 2) )*SS( 2)/12 
890  H2( 3 , 1) =( -QD( 3) -QDL-QDI+QLU-QLAf QH( 3) )*SS( 3)/12-WS( 3) 

900  H2(  4 , 1 )  =  (  QLV-CLA*QUHQH(  4 )  )*SS(  4)/12 

910  H2( 1 , 2) =( QD( 1 )+QOL+QDI+QLV+QLR( 1 )+QS)*SS( 1 )/12+WS( 1 ) 

920  H2(2,2)=(QLV-CLA*QLA)*SS(2)/12-HES(2) 

930  H2(3,2)=(-QD(3)-QDL-QDI+QLV-QLA)*SS(3)/12-HS(3) 

940  H2( 4 , 2) =( QLV-CLA*QLA)*SS( 4)/12+HES( 4) 

950  H2( 1 , 3) =( QD( 1 )+QDL+QDI+QLV+QW( 1 ) )*SS( 1 )/l 2+HS( 1 ) 

960  H2( 2 , 3) =( QLV-CLA*QLA+QH( 2) )*SS( 2)/12 

970  H2( 3 , 3)  =  ( -QD( 3) -QDL-QDI+QLV-QLA+QH(  3)  )/12-:WS(3) 

980  H2( 4 , 3) *( QLV-CLA*QLAf QW( 4) )*SS( 4)/12 
990  H2(1,4)«(QD(1)+QDL+QDI+QLV)*SS(1)/12+HS(1) 

1000  H2(2,4)=(QLV-CLA*QLA)*SS(2)/12-HES(2) 

1010  H2(3,4)=(-QD( 3) -QDL-QDI +QLV-QLA)*SS( 3)/12-HS(3) 

1020  H2(4,4)=(QLV-CLA*QLA)*SS(4)/12+HES(4) 

1030  H2( 1 ,5) =(QD( 1 )+QDL+QDI+QLV+QLR( 1 )+QS+QH( 1 ) )*SS( 1 )/12+WS(l ) 
1040  H2(2,5)=(QUvH-QH(2))*SS(2)/12 

1050  H2(3,5)=(-QD(3)-QDL-QDI+QLy+QH(3))*SS(3)/12-WS(3) 

1060  H2(4,5)=(QLV+QH(4))*SS<4)/12 

1070  H2( 1 , 6) =( QD( 1 )+QDL+QDI+QLV+QLR( 1 )+QS)*SS( 1 )/12+WS( 1 ) 

1080  H2(2,6)=QLV*SS(2)/12-HES(2) 

1090  H2( 3, 6) =( -QD( 3) -QDL-QDI+QLV)*SS( 3)/12-WS(3) 

1100  H2 ( 4 , 6 ) =QLV*SS ( 4 ) /I 2+HES ( 4 ) 

1110  H2( 1 , 7) =( QD( 1 ) +QDL+QD I +QLV+QW ( 1 ) )*SS( 1 )/124WS( 1 ) 
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1120  W2(2,7)=(QLV+QM(2))*SS(2)/12 

1130  W2( 3, 7) =( -QD( 3) -QDL-QDI+QLVfQH( 3) )*SS( 3)/12-WS( 3) 

1140  W2(4,7)»(QLV+QW(4))*SS(4)/12 

1150  W2(1,8)=(QD(1)+QDL+QDI+QLV)*SS(1)/12+WS(1) 

1160  W2(2,8)=QLV*SS(2)/12-WES(2) 

1170  W2(3,8)=(-QD(3)-QDL-QDI+QLV)*SS(3)/12-WS(3) 

1180  W2(4,8)=QLV*SS(4)/12+WES(4) 

1190  W2(l , 9) =( QD< 1 )+QDL+QDI -QLP+QLR( 1 )+QS+QW( 1 ) )*SS( 1 )/12+WS( 1 ) 

1200  W2( 2, 9) =< -QLP-CLA*QLA+QW( 2) )*SS( 2)/12 

1210  W2(3,9)=(-QD(3)-QDL-QDI-QLP-QLA+QW(3))*SS(3)/12-WS(3) 

1220  W2(4,9)=(-QLP-CLA*QLA+QW(4) )*SS(4)/12 
1230  FOR  1=1  TO  4\W2(1,10)=W2(1,9)\  NEXT  I 
1240  M2(1,11)=(Q0( 1 )+QOL+QO I -QLP+QLRC 1 ) +QS)*SS( 1 )/12+WS(l ) 

1250  W2(2,11)=(-QLP-CLA*QLA)*SS(2)/12-WES(2) 

1260  W2( 3 , 11 ) =( -QD( 3) -QOL-QDI -QLP-QLA)*SS( 3)/12-WS<  3) 

1270  W2(4,11)=(-QLP-CLA*QLA)*SS(4)/12+WES(4) 

1280  FOR  1=1  TO  4\W2(I,12)=W2(I,11)\  NEXT  I 

1290  M2( 1 , 1 3) =( QD( 1 ) +QDL+QDI -QLP+QW( 1 ) ) *SS( 1 )/12-H4S( 1 ) 

1300  W2(2,13)=(-QLP-CLA*QLA+QW(2))*SS(2)/12 

1310  W2( 3 , 13) =( -QO( 3) -QDL-QDI -QLP-QLA+QH(  3) )*SS( 3)/12-WS( 3) 

1320  W2(4,13)=(-QLP-CLA*QLA+QH(4))*SS(4)/12 
1330  FOR  1=1  TO  4\W2(I ,14)=W2(I,13)\  NEXT  I 
1340  W2(l ,15)=(QD(1)+QDL+QDI-QLP)*SS(1)/12+WS(1) 

1350  W2(2,15)=(-QLP-CLA*QLA)*SS(2)/12-WES(2) 

1360  W2(3,15)=(-QD(3)-Q0L-QDI-QLP-QLA)*SS(3)/12-WS(3) 

1370  W2( 4 , 15) =( -QLP-CLA*QLA)*SS( 4)/12+WES( 4) 

1380  FOR  1=1  TO  4\W2(I,16)=W2(I,15)\  NEXT  I 

1390  W2(1,17)=(QD(1)+QDL+QDI-QLP+QLR(1)+QS+QW(1))*SS(1)/12+WS(1) 

1400  W2(2,17)=(-QLP+QW(2))*SS(2)/12 

1410  W2( 3 , 17) =( -QD( 3) -QDL-QDI -QLP+QW( 3) )*SS( 3)/12-WS( 3) 

1420  W2( 4 , 17) =( -QLP+QH< 4) )*SS( 4)/12 

1430  FOR  1=1  TO  4NW2(I,18)=W2(I,17)\  NEXT  I 

1440  W2(l  ,19)=(QD(1)+QDL+QDI-QLP+QLR(1)+QS)*SS(1)/12H«IS(1) 

1450  W2(2,19)=-QLP*SS(2)/12-WES<2) 

1460  W2( 3 , 19) =( -QD( 3) -QDL-QDI -QLP)*SS( 3)/12-WS( 3) 

1470  W2(4,19)=-QLP*SS(4)/12+WES(4) 

1480  FOR  1=1  TO  4\W2( I ,20)=W2( I ,19)\  NEXT  I 

1490  W2( 1 , 21 ) =( QD( D+QDL+QD I -QLP+QN( 1 ) )*SS( 1 )/l 2+WS( 1 ) 

1500  W2(2,21)=(-QLP+QW(2))*SS(2)/12 

1510  W2(3,21)=(-QD(3)-QDL-QDI-QLP+QW(3) )*SS(3)/12-WS(3) 

1520  W2(4,21)=(-QLP+QW(4))*SS(4)/12 

1530  FOR  1=1  TO  4\W2(I,22)=W2(I,21)\  NEXT  I 

1540  W2  <1 , 23 ) » ( QD  < 1 ) +QDL+QD I-QLP)*SS(1)/1 2+WS ( 1 ) 

1550  W2(2,23)=-QLP*SS(2)/12-WES(2) 

1560  W2<  3 , 23) «(-QD( 3) -QDL-QDI -QLP)*SS( 3)/12-WS( 3) 

1570  W2(4,23)=-QLP*SS(4)/12+WES(4) 

1580  FOR  1=1  TO  4\W2(I,24)=W2(i,23)\  NEXT  I 

1590  142(1 , 25) =(  QD(  D+QDL+QDI+QLR  ( 1  )+QS+QW(  1 )  )*SS( 1 )/12+WS( 1 ) 

1600  W2( 2,25) *( -CLA*QLA+QW( 2) )*SS( 2)/12 

1610  M2( 3 , 25) =( -QD( 3) -QDL-QDI -QLA-QLR( 3)+QW( 3) )*SS( 3)/12-WS( 3) 

1620  W2(4,25)=(-CLA*QLA+QW(4))*SS(4)/12 

1630  W2(1,26)=(QD(1)+QDL+QDI+QLR(1)+QS)*SS(1)/12+WS(1) 

1640  W2( 2 , 26) =-CLA*QLA*SS( 2)/12-WES( 2) 

1650  W2( 3 , 26) =(-QD( 3) -QDL-QDI -QLA-QLR( 3) )*SS( 3)/12-WS( 3) 

1660  W2( 4 , 26) — CLA*QLA*SS( 4)/12+WES( 4) 

1670  W2( 1 , 27) *( QD( 1 )+QDL+QDI +QW( 1 ) )*SS( 1 )/l 2+WS( 1 ) 
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1680  W2(2 
1690  W2(3 


1700  W2(4 
1710  W2(l 


1720  W2(2 
1730  W2(3 


1740  W2(4 
1730  142(1 


1760  W2(2 
1770  W2(3 
1780  142(4 
1790  W2(l 
1800  W2(2 
1810  >42(3 
1820  142(4 
1830  >42(1 
1840  >42(2 
1830  >42(3 
1860  >42(4 
1870  >42(1 
1880  (42(2 
1890  >42(3 
1900  >42(4 
1910  >42(1 
1920  >42(2 
1930  W2(3 
1940  >42(4 
1930  >42(1 
1960  >42(2 
1970  142(3 
1980  >42(4 
1990  142(1 
2000  >42(2 
2010  >42(3 
2020  >42(4 
2030  142(1 
2040  142(2 
2050  142(3 
2060  142(4 
2070  REM 
2080  >43(1 
2090  >43(2 
2100  >43(3 
2110  >43(1 
2120  >43(2 
2130  W3(3 
2140  >43(1 
2150  143(2 
2160  143(3 
2170  143(1 
2180  >43(2 
2190  143(3 
2200  >43(1 
2210  >43(2 
2220  >43(3 
2230  FOR 


27)*(-CLA*QLA+QW(2) )*SS(2)/12 

27)  ■( -QO( 3) -QOL-QOI -QLA-QLR( 3)+QW( 3) )*SS( 3)/12-WS( 3) 

27 )  - ( -CLA*QLA+QW ( 4 ) ) *SS ( 4 ) /I 2 

28 )  - ( QD ( 1 ) +QDL+QD I ) *SS ( 1 ) /I 2+WS ( 1 ) 

28)—  CLA*QLA*SS(2)/12-WES(2) 

28) «( -Q0( 3) -QDL-QDI -QLA-QLR( 3) )*SS< 3)/12-WS( 3) 

28)  — CLA*QLA*SS( 4)/12+WES( 4) 

29) *(QD(1)+QDL+QDI+QLR(1)+QS+QH(1) )*SS(1)/12+WS(1) 

29 ) »( -CLA*QLA+QW ( 2 ) ) *SS ( 2 ) /I 2 

29) =( -QD( 3) -QOL-QOI -QLAf  QW( 3) )*SS( 3)/12-WS( 3) 

29)  *( -CLA*QLA+QW( 4) )*SS( 4)/12 

30 ) =(QD( 1 )+QOL+QDI+QLR( 1 ) +QS)*SS( 1 )/12+WS(l ) 

30)—  CLA*Q|_A*SS(2)/12-WES(2) 
30)»(-QD(3)-QDL-QDI-QLA)*SS(3)/12-WS(3) 

30 )  — CLA*QLA*SS(  4)/l  2+WES(  4) 

31) a(QD(l)+QDL+Q0I+QLR(l)+QS+QW(l))*SS(l)/12+WS(l) 
31)=QM(2)*SS(2)/12 

31 ) *( -QD( 3) -QDL-QDI -QLR( 3)+QW( 3) )*SS( 3)/12-WS( 3) 

31) =QH(4)*SS(4)/12 

32 )  * ( QD ( 1 ) +QDL+QD I +QLR ( 1 ) +QS ) *S  S ( 1 ) /I 2+WS ( 1 ) 

32)— WES(2) 

32) =< -QD( 3) -QDL-QDI -QLR( 3) )*SS( 3)/12-WS( 3) 

32) =WES(4) 

33) «(QD(1)+QDL+QDI+QW(1))*SS(1)/12+WS(1) 
33)=QW(2)*SS(2)/12 

33) =( -QD( 3) -QDL-QDI -QLR( 3)+QH( 3) )*SS( 3)/12-WS( 3) 

33) =QW(4)*SS(4)/12 

34) =(QD(1)+QDL+QDI )*SS(1)/12+WS(1) 

34)—WES(2) 

34) *( -QD( 3) -QDL-QDI -QLR( 3) )*SS( 3)/12-WS( 3) 

34) =WES(4) 

35) *(QD( 1 )+QDL+QDI+QLR( 1 )+QS+QW( 1 ) )*SS( 1 )/12+WS( 1 ) 
35)aQk4(2)*SS(2)/12 

35) =( -QD( 3) -QDL-QDI+QW( 3) )*SS( 3)/12-WS( 3) 

35)  *QW( 4)*SS( 4)/12 

36)  *(QD(  1 )+QDL+QDI+QLR< 1 )+QS)*SS( 1 )/12+WS( 1 ) 

36)— WES(2) 

36) *( -QO( 3) -QDL-QDI )*SS( 3)/12-WS( 3) 

36)*WES(4) 

Excursion  Conditions 
1 ) »( QD(  D+QDL+QDI+QXV+QLR  ( 1  )+QS)*SS(  1 )/12+WS  ( 1 ) 

1 ) ■ ( QXV-CLA*QLA ) *SS ( 2 )/l 2NW3 ( 4 , 1 ) =W3( 2 , 1 ) 

1) «(-QD(3)-Q0L-QDI+QXV-QLA)*SS(3)/12-WS(3) 

2) »(QD(1)+QDL+Q0I+QW)*SS(1)/12+WS(1) 

2 ) *( QXV-CLA*QLA ) *SS ( 2 ) /1 2\W3 ( 4 , 2 ) =W3 ( 2 , 2 ) 

2)  »( -QD( 3) -QDL-QDI+QXV-QLA)*SS( 3)/12-WS( 3) 

3)  a( QD( 1 )+QDL+QDI +QXV+QLR ( 1 )+QS)*SS( 1 )/12+WS( 1 ) 

3) aQXV*SS( 2)/12M43( 4 , 3)  *W3( 2 , 3) 

3) »(-QD(3)-Q0L-QDI+QXV)*SS(3)/12-WS(3) 

4)  *( QD( 1)+QDL+QDI+QXV)*SS( 1 )/12+WS( 1 ) 

4)  =QXV*SS(  2)/12\W3<  4 , 4)  *W3(  2 ,4) 

4) «(-QD(3)-QDL-QDI+QXV)*SS(3)/12-WS(3) 

5)  *( QD( 1 )+QDL+QDI -QXP+QLR( 1 )+QS)*SS( 1 )/l 2+WS ( 1 ) 
5)a(-QXP-CLA*QLA)*SS(2)/12\W3( 4 , 5)  443( 2 , 5) 

5)a( -QD( 3) -QDL-QDI -QXP-QLA)*SS( 3)/12-WS( 3) 

*1  TO  4\J43(  1 ,6)«W3(  1 ,5)\  NEXT  I 
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2240  W3( 1 , 7) *( QD( 1 )+QDL+QDI -QXP)*SS< 1 )/12+WS< 1 ) 

2250  W3( 2 , 7 ) *< -QXP-CLA*QLA )*SS( 2 ) /I 2\W3 ( 4 , 7 ) *W3 ( 2 , 7 ) 

2260  W3(3,7)*(-QD(3)-QDL-QDI+QXP-QLA)*SS(3)/12-WS(3) 

2270  FOR  1*1  TO  4\W3( I ,8)=W3( I ,7)\  NEXT  I 

2280  W3 ( 1 , 9) * ( QD<1 ) +QDL+QO I -QXP+QLR (1 ) +QS ) *SS( 1 ) /I 2+WS ( 1 ) 

2290  W3  ( 2 , 9 ) *-QXP*SS ( 2 ) /12NW3 ( 4 , 9 ) =W3( 2 , 9) 

230 0  W3  <  3 , 9 ) = ( -QD ( 3 ) -QDL-QD I -QXP ) *SS ( 3 ) /I 2-WS ( 3 ) 

2310  FOR  1*1  TO  4\W3(I,10)*W3(I,9)\  NEXT  I 
2320  W3( 1 , 11 ) *( QD( D+QDL+QDI -QXP)*SS< 1 )/12+WS( 1 ) 

2330  W3(2,ll)*-QXP*SS(2)/12\W3(4lil)=W3(2,ll> 

2340  W3<3,11)=<-QD(3)-QDL-QDI-QXP)*SS(3)/12-WS(3) 

2350  FOR  1=1  TO  4\W3( I ,12)=W3( I ,ll)\  NEXT  I 
2360  REM  WRITE  TRANSVERSE  LOADS  TO  A  FILE 
2370  C**','\  OPEN  'DATA6'  FOR  OUTPUT  AS  FILE  *6 

2380  FOR  1=1  TO  18\  PRINT  *6,Wl(ly I ) |C*jWl(2, I ) ;C*;W1(3, I ) ;CS;W1(4, 1 )\  NEXT  I 

2390  FOR  1*1  TO  36\  PRINT  *6,W2<1,I) }C*}W2(2,I) ;C*;W2(3,I) ;C*;W2(4,I)\  NEXT  I 

2400  FOR  1*1  TO  12\  PRINT  *6,W3(1,I) }C*;W3(2,I) sC*}W3(3,I) }C»;W3(4,I)\  NEXT  I 

2410  CLOSE  #6\I0*0\  DIM  WES< 10) ,WS< 10) ,W1( 10 , 10) ,W2( 10 , 10) ,W3( 10 , 10) ,QD( 10) 
2420  DIM  T(I0),SS(I0),QW(I0),QLR(I0) 

2430  IF  RECALC*2  OR  RECALC=3  THEN  2460 

2440  PRINT  'CHAINING  TO  PROGR/W  DUCT6j  PLEASE  W4IT'\  PRINT 
2450  CIWIN  'DUCT6A'  WITH  RECALC 

2460  PRINT  'CHAINING  TO  PROGRAM  DUCT85  PLEASE  WIT'\  PRINT 
2470  CHAIN  'DUCT8A'  WITH  RECALC 
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SET  NO  DOUBLE 

10  REM  PROGRAM  N*1E:  DUCT6A 
20  REM 

30  REM  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  ENABLE  PROQRtfl  DUCT5  TO  CHUN  TO 
40  REM  PROGRAM  DUCT6 
50  REM 

60  PROGRAM  DUCT6A< RECALC) 

70  CHAIN  'DUCT6'  WITH  RECALC 
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SET  NO  DOUBLE 

!  PROGRAM  NAME:  DUCT 6 

!  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  SELECT  TRANSVERSE  RIGID  FRAME 

!  STIFFENERS 

40  PROGRAM  DUCT6( RECALC) 

50  LET  I2=2SI3=3SI4=4SI8»8SI12*12SI18*18SI36=36S  DIM  SEC»(  14)  ,AST(  14)  ,FA(  14) 

60  DIM  WS( 14) ,WELD*( 14) ,LBRC( 14) ,FB( 14, 13, 12) ,FBM( 14, 13, 12) ,LY( 14) ,PLANGLE( 13) 

70  DIM  DST(I4),Y1(I4),IE(I4),RE(I4),BF(I4),TF(I4),TW(I4),RT(I4),AE(I4),IXS(I4) 

80  DIM  PVP( 14, 12,12) ,FAM( I4,I2,I4),P(I4,I2,I4) ,DSA( 13) ,LFT( 14) ,T(I4),SS(I4) 

90  DIM  Wl( 14, 118) ,W2( 14, 136) ,W3( 14, 112) ,M0(I4),A(I4,I4),B(I4,I8),D(I4),K1(I4) 

100  DIM  ANGDISP(I4) ,M( 1 4 , 1 2) ,MMAXP0S(I4) ,MMAXNEG(I4) ,FAC(I4) ,FLAG(I4) , PD (14) 

110  DIM  QW( 14) ,QLR( 14) , BE (14) ,WA( 14) ,FLAG1( 14) 

120  OPEN  'LP:'  FOR  OUTPUT  AS  FILE  #1\  OPEN  'DATA3'  FOR  INPUT  AS  FILE  *3 

130  OPEN  'DATA4'  FOR  INPUT  AS  FILE  #4\  OPEN  ' DATA5'  FOR  INPUT  AS  FILE  #5 

140  INPUT  #3 , CLA , CORR* , CRA , LSPAN , EP , FYP , SEI SZ 

150  INPUT  #3 , UWP , QDL , QLA , QLP , QLV , QS , QXP , QXV 

160  INPUT  #3,LFT(1) ,LFT(2) ,LFT(3) ,LFT(4) ,QLR(1) ,QLR(3) 

170  INPUT  #3,T(1),T(2),T(3),T(4),QW(1),QW(2) ,QW(3) ,QW(4) 

180  INPUT  *4 , HCOPY* , QDI , SHP , UWS , FYS , ES , QLRD , QLAD ,  WB 
190  INPUT  #4,LBRC(1) ,LBRC(2) ,LBRC(3) ,LBRC(4) ,WA(1) ,WA(2) 

200  INPUT  #4,WA(3) ,WA(4) ,DSA(1) ,DSA(2) ,DSA(3) , LY(1) ,LY(2) 

210  INPUT  #4,LY(3),LY(4),WELD*(l),WELD*(2),WELD*(3),WELDf(4) 

220  INPUT  #5,SS(1),SS(2),SS(3),SS(4)S  CLOSE  #3, #4, #5 
230  OPEN  'DATA6'  FOR  INPUT  AS  FILE  *6 

240  FOR  1=1  TO  18\  INPUT  #6,W1(1,I) ,W1(2,I) ,W1(3,I) ,W1(4,I)S  NEXT  I 

250  FOR  1=1  TO  36\  INPUT  *6,W2(1 , I ) ,W2(2, I ) ,W2(3, I ) ,W2(4, I )\  NEXT  I 

260  FOR  1=1  TO  12\  INPUT  *6,W3< 1 , I ) ,W3(2, I ) ,W3(3, I ) ,W3(4, I )S  NEXT  I\  CLOSE  *6 

270  DEF  FNTAN(RAD)=SIN(RAD)/COS(RAD) 

!  Calculate  stiffener  axial  forces  due  to  internal  vacuums  and  pressures 

290  GOSUB  2770\  IF  RECALC*1  THEN  2220 
300  IF  HCOPY*='N'  GOTO  320 

310  PRINT  CHR*(27)+'[?4i'S  PRINT  #1,CHR*(12)S  PRINT  CHR*(27)+' [?5i ' 

320  AVAIL=0S  PRINT  \  PRINT  TAB( 25) { 'RIGID  FRAME  STIFFENER  DESIGN'\  PRINT  \  PRINT 
330  IF  LFT(2)=LFT(4)  THEN  500 

340  PRINT  TABOO) ;'***  PLEASE  NOTE  ***'\  PRINT  \  PRINT  'THE  LENGTH  OF  SIDE  2  '; 
350  PRINT  'IS  DIFFERENT  FROM  THE  LENGTH  OF  SIDE  4  FOR  THIS  DUCT  CROSS' 

360  PRINT  'SECTION.  IN  ORDER  TO  ENSURE  THAT  ADEQUATE  RIGID  FRAME  STIFFENERS' ; 
370  PRINT  '  ARE  SELECTED, '\  PRINT  'THIS  SERIES  OF  PROGRAMS  (STARTING  WITH  '; 

380  PRINT  ' PROGRAM  DUCT1)  SHOULD  BE  RUN  TWICE.  THE'\  PRINT  'FIRST  RUN  SHOULD'; 
390  PRINT  '  DESIGNATE  SIDE  2  AS  THE  LONGER  SIDE  AND  SIDE  4  AS  THE  SHORTER' 

400  PRINT  'SIDE.  THE  SECOND  RUN  SHOULD  DESIGNATE  SIDE  2  AS  THE  SHORTER  SIDE 
410  PRINT  'f*ID  SIDE  4  AS'S  PRINT  'THE  LONGER  SIDE.  SIDE  1  REMAINS  THE  TOP  '; 

420  PRINT  'f*JD  SIDE  3  REMAINS  THE  BOTTOM  FOR  BOTH'N  PRINT  'RUNS.  THE  TWO  RU' ; 
430  PRINT  'NS  SHOULD  BE  COMPARED  STIFFENER  BY  STIFFENER,  AND  THE'\  PRINT  'HE'; 
440  PRINT  'AVIER  STIFFENER  SECTION  IN  EACH  CASE  SHOULD  BE  SELECTED  WHEN  RIGID'; 
450  PRINT  '  FRAME'S  PRINT  'STIFFENERS  ARE  DESIGNATED.  THIS  PROCEDURE  IS  REQ' ; 
460  PRINT  'UIRED  SINCE  THE  RIGID  FRAME'S  PRINT  'PROGR^I  ALWAYS  DESIGIWES  '; 

470  PRINT  'SIDE  4  AS  THE  WINDWARD  SIDE  OF  THE  DUCT.  IT  APPLIES'S  PRINT  'ON'; 

480  PRINT  'LY  TO  RIGID  FRAME  STIFFENER  DESIGN.  THIS  PROCEDURE  DOES  NOT  '; 

490  PRINT  'APPLY  TO  PINNED-'S  PRINT  'END  STIFFENER  DESIGN. 'S  PRINT  S  PRINT 
500  PRINT  'ENTER  A  TRIAL  NOMINAL  DEPTH  (IN  INCHES)  FOR  THE  STIFFENER  SECTIONS' 
510  PRINT  '(REMINDER:  STIFFENERS  ON  ALL  FOUR  SIDES  OF  THE  DUCT  ARE  DESIGNED  '; 
520  PRINT  'TO  tt^VE  THE'S  PRINT  'Sf*1E  NOMINAL  DEPTH) 'S  INPUT  TRIALNDS  PRINT 
!  Test  to  insure  that  chosen  trial  nominal  depth  is  available 

540  ON  SHP  GOTO  550,590,640 

550  IF  TRIALND=6  OR  TRIALND=8  OR  TRIALND=10  THEN  AVAIL=1S  GOTO  670 
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560  IF  TRIALND=12  OR  TRIALND=14  OR  TRIALND=16  THEN  AVAIL=1\  QOTO  670 
570  IF  TRIALND=18  OR  TRIALND=21  OR  TRIALND=24  THEN  AVAIL=1\  QOTO  670 
580  QOTO  670 

590  IF  TRIALND*3  OR  TRIALND=4  OR  TRIALND=5  THEN  AVAIL=1\  GOTO  670 

600  IF  TRIALND=6  OR  TRIALND=7  OR  TRIALND*8  THEN  AVAIL=1\  GOTO  670 

610  IF  TRIALND*9  OR  TRIALND=10.5  OR  TRIALND=12  THEN  AVAIL=1\  GOTO  670 
620  IF  TRIALND=13.5  OR  TRIALND=15  OR  TRIALND=16.5  THEN  AVAIL=1\  GOTO  670 
630  GOTO  670 

640  IF  TRIALND=6  OR  TRIALND=7  OR  TRIALND=8  THEN  AVAIL=1\  GOTO  670 
650  IF  TRIALND=9  OR  TRIALND=10  OR  TRIALND=12  THEN  AVAIL=1\  GOTO  670 
660  IF  TRIALND=15  THEN  AVAIL=1 
670  IF  AVAIL=1  GOTO  760 

680  PRINT  \  PRINT  "THE  TRIAL  NOMINAL  DEPTH  THAT  YOU  HAVE  CHOSEN  IS  NOT  '; 

690  PRINT  'AVAILABLE  IN  THIS  DESIGNS  PRINT  ' PROGRAM  FOR  THE  STIFFENER  '; 

700  PRINT  'SECTION  Stt*PE  THAT  YOU  SELECTED  PREVIOUSLY.  IF  YOU' 

710  PRINT  'WISH  TO  CHANGE  THE  STIFFENER  SECTION  SHAPE  (W  SHAPE,  WT  OR  ' ; 

720  PRINT  'CIWNEL),  YOU  MUST'\  PRINT  'INTERRUPT  THIS  PROGRAM  (PRESS  '; 

730  PRINT  'Interrupt  -  Do  KEYS),  <*40  RELOAD  AND  RERUN  PROGRAM' 

740  PRINT  'DUCT3.  OTHERWISE,  PLEASE  ENTER  A  DIFFERENT  TRIAL  NOMINAL  '; 

750  PRINT  'DEPTH. '\  GOTO  300 

760  IF  HCOPY*='N'  THEN  770  ELSE  PRINT  CHR*(27)+' [?4i ' 

770  PRINT  'TRANSVERSE  RIGID  FRAME  STIFFENERS  ARE  BEING  SELECTED.  THIS  PROCE' ; 
780  PRINT  'SS  MAY  TAKE'\  PRINT  'FROM  30  SECONDS  TO  TWO  HOURS.  THE  LOAD  CON'; 
790  PRINT  'DITION,  LOAD  CASE  AND  STIFFENER'\  PRINT  'SECTION  PRINTOUTS  TO  THIS' 
800  PRINT  '  SCREEN  (WHICH  WILL  COMMENCE  MOMENTARILY)  MAY  BE  DIS-' 

810  PRINT  'REGARDED.  THEY  ARE  PROVIDED  SIMPLY  TO  GIVE  YOU  SOME  IDEA  OF  THE  '; 
820  PRINT  'STIFFENER'N  PRINT  'SELECTION  PROGRESS,  AND  TO  REASSURE  YOU  THAT 
830  PRINT  'THIS  PROGRAM  IS  NOT  ’LOST’.  THE'\  PRINT  'FINAL  STIFFENER  SECTION'; 
840  PRINT  '  SELECTION  WILL  BE  PRINTED  OUT  ON  THE  LINE  PRINTER  (IF' 

850  PRINT  'YOU  REQUESTED  A  HARD  COPY  OF  THE  STIFFENER  SELECTION  OUTPUT).  '; 
860  PRINT  'PLEASE  kWIT.'N  PRINT 

870  FOR  1=1  TO  4\SEC*(I)='*****'\WS(I)=0\FLAG1(I)=0\  NEXT  I 

880  MAXWT=0\  ON  SHP  GOTO  890,900,910 

890  OPEN  'WSHAPE'  FOR  INPUT  AS  FILE  *10\  GOTO  920 

900  OPEN  'WT'  FOR  INPUT  AS  FILE  #10\  GOTO  920 

910  OPEN  'C'  FOR  INPUT  AS  FILE  #10 

920  IF  MAXWT=1  THEN  CLOSE  #10\  GOTO  2340\  REM  (End  of  File  Check) 

930  ON  SHP  GOTO  940,950,960\  REM  (Read  W,  WT  or  Channel  shape  properties) 

940  GOSUB  2890\  GOTO  970 

950  GOSUB  2980\  GOTO  970 

960  GOSUB  3050 

970  IF  NDSTOTRIALND  GOTO  930 

!  Heaviest  possible  section  for  nominal  depth  check 

990  IF  MAXND*TRIALND  THEN  MAXWT*1 
1000  FOR  1=1  TO  4\  IF  SEC*(I ) O'*****'  THEN  1050 
!  Calculate  effective  section  properties 

1020  GOSUB  3120\AST( I )=AST\DST ( I )=DST\BF( I )=BF\TF( I )=TF\TW( I )=TW 
1030  RT( I )=RT\IXS( I )=IXS\YS( I )=YS 

1040  WS(I)=AST*UWS/144\  REM  (Calculate  trial  stiffener  weights) 

1050  GOSUB  3190\  NEXT  I\  REM  (Calc,  allow,  stiff,  axial  compress,  stresses) 

1060  GOSUB  3290\  REM  (Calculate  stiffener  axial  load  and  stress  combinations) 

1070  FOR  LC0ND=1  TO  3 

1080  ON  LCOND  GOTO  1090,1100,1110 

1090  LCASE=18\  GOTO  1120 

1100  LCASE=36\  GOTO  1120 

1110  LCASE*12 


y  tS 


mi 


s m 


■v-y-y-y 


202 


DUCT6.8AS 


23:35 


02-Apr-86 


1120  DIM  W(I4,LCASE) 

1130  FOR  LC*1  TO  LCASE 

!  Calculate  stiffener  fixed-end  moments 

1150  FOR  1*1  TO  4\  ON  LCOND  GOTO  1160,1170,1180 

1160  W(I,LC)=W1(I,LC)\  GOTO  1190 

1170  W(I,LC)=W2(I,LC)\  GOTO  1190 

1180  W( I ,LC)=W3( I ,LC) 

1190  M0( I )=W( I ,LC)*LFT( I ) A2/1000\  NEXT  I 

1200  GOSUB  3550\  REM  (Calculate  rigid  frame  stiffener  end  moments) 

!  Calculate  maximum  positive  and  negative  stiffener  moments  and 

1220  GOSUB  4000\  REM  maximum  stiffener  and  plate  bending  stresses 

!  Match  transverse  load  cases  with  appropriate  axial  load  comb. 

1240  ON  LCOND  GOTO  1250,1320,1420 

1250  IF  LCOl  AND  LC<>2  LC<>3  AND  LC<>4  THEN  1270 

1260  FOR  1*1  TO  4\FAC( I )=FAM( I ,1 ,1)\  NEXT  I\  GOTO  1480 

1270  IF  LC<>5  AND  LC<>7  AND  LC<>9  AND  LCOll  THEN  1290 

1280  FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,2)\  NEXT  I\  GOTO  1480 

1290  IF  LC<>6  AND  LC<>8  f*JD  LCOIO  AND  LC<>12  THEN  1310 

1300  FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,3)\  NEXT  I\  GOTO  1480 

1310  FOR  1*1  TO  4\FAC( I )*FAM( I ,1 ,4)\  NEXT  I\  GOTO  1480 

1320  IF  LC=1  OR  LC=2  OR  LC*3  OR  LC=4  GOTO  1340 

1330  IF  LC<>5  mO  LC<>6  mo  LC<>7  D  LC<>8  THEN  1350 

1340  FOR  1*1  TO  4\FAC( I )*FAM( I ,1 ,1)\  NEXT  I\  GOTO  1480 

1350  IF  LC*9  OR  LC=11  OR  LC*13  OR  LC=15  GOTO  1370 

1360  IF  LC<>17  fWD  LC<>19  AND  LC<>21  AND  LC<>23  THEN  1380 

1370  FOR  1*1  TO  4\FAC( I )“FAM( I ,1 ,2)\  NEXT  I\  GOTO  1480 

1380  IF  LC=10  OR  LC=12  OR  LC=14  OR  LC=16  GOTO  1400 

1390  IF  LC<>18  AND  LCO20  AND  LC<>22  AND  LC<>24  THEN  1410 

1400  FOR  1*1  TO  4\FAC(I)*FAM(I,1,3)\  NEXT  I\  GOTO  1480 

1410  FOR  1*1  TO  4\FAC( I )=FAM( I ,1 ,4)\  NEXT  I\  GOTO  1480 

1420  IF  LCOl  WD  LC<>2  FWD  LC<>3  WD  LC<>4  THEN  1440 

1430  FOR  1*1  TO  4\FAC( I )=FAM( I ,2,1)\  NEXT  I\  GOTO  1480 

1440  IF  LC<>5  WD  LC<>7  AND  LC<>9  AND  LCOll  THEN  1460 

1450  FOR  1=1  TO  4\FAC( I )=FAM( I , 2,2)\  NEXT  I\  GOTO  1480 

1460  FOR  1=1  TO  4\FAC( I )*FAM( I ,2,3)\  NEXT  I 

!  Calculate  allowable  stiffener  and  adj .  plate  bending  stresses 

1480  FOR  1=1  TO  4\  IF  SEC*( I )=' FAILED'  OR  FLAG1(I)=1  THEN  1500 

1490  GOSUB  4160 

1500  NEXT  I\  REM  Check  interaction  formulas 

1510  FOR  1*1  TO  4\FLAG( I )=0\  IF  SEC*( I )*'FAILED'  OR  FLAG1(I)=1  THEN  1530 

1520  GOSUB  4590 

1530  NEXT  I 

1540  FLAG1 *1\FLAG2*0\  FOR  1*1  TO  4\  IF  FLAG(I)*1  THEN  SEC*( I )=' FAILED' 

1550  IF  SEC*( I )»'*****'  THEN  FLAG1=0 

1560  IF  SEC*( I )»'*****'  OR  SEC*( I )*'FAILED'  THEN  FLAG2=1 

1570  NEXT  I\  IF  FLAG1=1  AND  FLAG2=1  THEN  1840 

!  Check  stiffener  deflections 

1  Calculate  stiffener  fixed-end  moments  (incl.  axial  forces) 

1600  FOR  1=1  TO  4\PD( I )*FAC( I )*AE( I )*1000\  IF  PD(I)<=0  THEN  1630 

1610  Kl( I ) *SQR( PD( I )/< 1000*ES*IE( I ) ) )\TERM1*6*K1( I )*LFT ( I ) 

1620  M0( I )=W( I ,LC)*( 1-TERM1/FNTAN(TERM1 ) )/12000*Kl( I )  A2\  GOTO  1640 

1630  M0( I )=W( I ,LC)*LFT( I )A2/1000 

1640  NEXT  I 

1650  GOSUB  3550\  REM  Calc,  stiffener  end  moments  (incl.  axial  forces) 

!  Calculate  and  check  maximum  stiffener  and  plate  deflection  s 

1670  FOR  1=1  TO  4\  IF  SEC*( I )=' FAILED'  OR  FLAG1(I)=1  THEN  1690 
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1680  GOSUB  5030 

1690  NEXT  I 

1700  FLAG1=1\FLAG2=0\  FOR  1=1  TO  4\  IF  FLAG(I)=1  THEN  SEC*( I )='FAILED' 

1710  IF  SEC*( I )='*****'  THEN  FLAG1=0 

1720  IF  SEC*(  I  )='*****'  OR  SEC*( I )=' FAILED'  THEN  FLAG2=1 

1730  NEXT  I\  IF  FLAG1*1  tf4D  FLAG2=1  THEN  1840 

!  Check  stiffener  moment  of  inertia  and  gross  area  requirements 

!  (vertical  stiffeners  only) 

1760  FOR  1=2  TO  4  STEP  2\  IF  SEC*( I )=' FAILED'  OR  FLAG1(I)=1  THEN  1780 

1770  GOSUB  5230 

1780  NEXT  I 

1790  FLAG1 =1\FLAG2=0 

1800  FOR  1=1  TO  4\  IF  FLAG(I)*1  THEN  SEC*( I )=' FAILED' 

1810  IF  SEC*< I )='*****'  THEN  FLAG1=0 

1820  IF  SEC*( I )='*****'  OR  SEC*( I )=' FAILED'  THEN  FLAG2=1 

1830  NEXT  I\  IF  FLAG1=0  OR  FLAG2=0  THEN  1850 

1840  LC=LCASE\LC0ND=3 

1850  PRINT  'LOAD  CASE' ;LC,SECT$;TAB(29) ;SEC*(1) ;TAB(42) ;SEC$(2) jTAB(55) ; 

1860  PRINT  SEC*<3) ;TAB(68) ;SEC*(4)\  NEXT  LC 

1870  PRINT  'LOAD  CONDITION' ;LC0ND\  NEXT  LCOND 

1880  FLAG=0\  FOR  1=1  TO  4\  IF  SEC*< I )<>'**★**'  GOTO  1900 

1890  SEC*(I)=SECT*\  GOTO  1930 

1900  IF  SEC*( I ) O' FAILED'  GOTO  1930 

1910  IF  RECALC=1  THEN  FLAG3=1 

1920  SEC*( I )='*****'\FLAG=1\  GOTO  1940 

1930  FLAG1 ( I ) =1 

1940  NEXT  I\  IF  FLAG-1  GOTO  920 

1950  CLOSE  #10\  IF  RECALC-1  *4D  FLAG3-0  THEN  2340 

!  Ensure  that  side  stiffened*  are  the  same  size  if  lengths  are  equal 
1970  IF  LFT(2) <>LFT(4)  OR  WS(2)=WS(4)  THEN  2060 
1980  IF  WS(2)<WS<4)  THEN  2020 

1990  SEC*(4)=SEC*(2)\AST(4)=AST(2)\DST(4)=DST(2)\BF(4)=BF(2)\TF(4)=TF(2) 

2000  TW(4)=TW(2)\RT(4)=RT(2)\IXS(4)=ISX(2)\WS(4)=WS(2)\AE(4)=AE(2) 

2010  Y1(4)=Y1(2)\IE(4)=IE(2)\RE(4)=RE(2)\YS(4)=YS(2)\  GOTO  2060 

2020  SEC$(2)=SEC*(4)\AST(2)=AST(4)\DST(2)=DST(4)\BF(2)=BF(4)\TF(2)=TF(4) 

2030  TW(2)=TW(4)\RT(2)=RT(4)\IXS<2)=ISX(4)\WS(2)=WS(4)\AE(2)=AE(4) 

2040  Y1(2)=Y1(4)\IE(2)=IE(4)\RE(2)=RE(4)\YS(2)=YS(4) 

!  Recalculate  transverse  loads  using  actual  stiffener  weights 
2060  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  *5 

2070  C*«','\  PRINT  #5,SS(1) ;C$;SS(2) ;C*;SS(3) ;C$;SS(4)\  CLOSE  *5 

2080  OPEN  'DATA7'  FOR  OUTPUT  AS  FILE  *7 

2090  PRINT  #7,WS(1) ;Ci;WS(2) ;C$;WS(3) ;C4;WS(4)\  CLOSE  #7 

2100  OPEN  'DATA8'  FOR  OUTPUT  AS  FILE  *8 

2110  FOR  1=1  TO  4\  PRINT  #8,SEC*( I ) ; C* ; AST ( I ) ;C*;DST ( I ) ;C*;BF( I ) ; C* ; TF ( I ) 

2120  PRINT  *8,TW( I ) ;C$ jRT( I ) ;C$; IXS( I ) ;C$jAE( I ) ;C$; IE( I ) ;C$;RE( I ) ;C$;Y1 ( I ) 

2130  PRINT  #8,YS(I)\  NEXT  I\  PRINT  #8,TRIALND\  CLOSE  *8\I0=0\  DIM  FLAGl(IO) 

2140  DIM  SEC*( 10) ,AST(I0) ,FA( 10) ,WA( 10) ,QW< 10) ,QLR(I0) ,BE( 10) ,WS( 10) ,Y1(I0) 

2150  DIM  WELD*(I0) ,LBRC( 10) ,FB(I0,I0,I0> ,FBM< 10,10,10) ,LY(I0) ,PLANGLE(IO) 

2160  DIM  DST( 10) , IE( 10) ,RE( 10) ,BF( 10) ,TF( 10) ,TVI( 10) ,RT( 10) ,AE( 10) , IXS( 1 0) 

2170  DIM  Wl( 10 , 10) ,W2( 10, 10) ,W3( 10 , 10) ,M0( 10) ,A( 10 , 10) ,B( 10 , 10) ,D(I0) ,K1( 10) 
2180  DIM  ANGDISP(  10)  ,M<  10 ,10)  ,ft1AXP0S(  1 0 )  ,MMAXNEG(  10)  ,FAC(  10) , FLAG(  10)  ,PD(  10) 
2190  PRINT  \  PRINT  'CHAINING  TO  DUCT5  TO  RECALCULATE  TR/*ISVERSE  LOADS  BASED  ON' 
2200  PRINT  'ACTUAL  STIFFENER  WEIGHTS;  PLEASE  LWIT' 

2210  CLOSE  #1\RECALC*1\  CHAIN  'DUCT5'  WITH  RECALC 

2220  OPEN  'DATA7'  FOR  INPUT  AS  FILE  #A  OPEN  'DATA8'  FOR  INPUT  AS  FILE  #8 
2230  INPUT  #7,WS(1) ,WS(2) ,WS(3) ,WS(4)\  CLOSE  #7 
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2240 

2250 

2260 

2270 

2280 

2290 

2300 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2770 

2780 

2790 


FOR  1=1  TO  4\  INPUT  *8,  SEW I ) ,AST ( I ) ,DST( I ) ,BF( I ) ,TF( I ) 

INPUT  #8,TW( I ) ,RT( I ) , IXS( I ) ,AE( I ) , IE( I ) ,RE( I ) ,Y1( I )\  INPUT  *8,YS(I) 

NEXT  I\  INPUT  *8 ,TRIALND\  CLOSE  #8 
MAXWT=0\  ON  SHP  GOTO  2280,2290,2300 

OPEN  'WSHAPE'  FOR  INPUT  AS  FILE  #10\  GOTO  2320 
OPEN  'WT'  FOR  INPUT  AS  FILE  #10\  GOTO  2320 
OPEN  'C'  FOR  INPUT  AS  FILE  #10 
Recalculate  allowable  stiffener  axial  compressive  stresses 
FOR  1=1  TO  4\  GOSUB  3190NFLAGK  I  )=0\  NEXT  I 
FLAG3=0\  GOTO  1060 

IF  HCOPY$='Y'  THEN  PRINT  CHR$(27)+' [?5i ' 

PRINT  \  PRINT  TA8(38) {'RIGID  FRAME  STIFFENERS'N  PRINT 
PRINT  TAB(23) ; 'SIDE  1' jTAB(38) ; ' SI DE  2' ;TAB(53) ; 'SIDE  3' ;TAB(68) ; 'SIDE  4' 
PRINT  \  PRINT  'STIFFENER  SPACING' ;TAB(25) ;SS(1) )TAB(40) ;SS(2) ;TAB(55) ; 
PRINT  SS(3) ;TAB(70) ;SS(4)\  PRINT  '  (INCHES)' 

PRINT  'STIFFENER  SECTION' jTAB( 21) ; 

FOR  1=1  TO  4\  PRINT  USING  1 ' CCCCCCCCCCC  *,SEC*(I);\  NEXT  I 
PRINT  \  PRINT  \  PRINT 

FLAG=0\  FOR  1=1  TO  4\  IF  SEW I )='*****'  THEN  FLAG=1 
NEXT  I\  IF  FLAG=0  GOTO  2480 

PRINT  'NOTE:  ■***★*•  INDICATES  TKVT  AN  ADEQUATE  RIGID  FRAME  STIFFENER  '; 
PRINT  'SECTION  WITH'N  PRINT  TA8(6) )TRIALND; ' INCH  NOMINAL  DEPTH  DOES  NOT  '; 
PRINT  'EXIST.  YOU  MUST  SELECT  STIFFENER'X  PRINT  TAB( 7) ; 'SECTIONS  WITH  '; 
PRINT  'A  GREATER  NOMINAL  DEPTH. '\  PRINT  \  PRINT 
PRINT  'DO  YOU  WISH  TO  ' ; 

PRINT  'SELECT  RIGID  FRtflE  STIFFENERS  WITH  A  DIFFERENT  NOMINAL  DEPTH?' 

PRINT  '(ENTER  Y  OR  N) '\  INPUT  DIFF*\  PRINT  \  PRINT 

PRINT  'DO  YOU  WISH  TO  SELECT  A  DIFFERENT  STIFFENER  SPACING?  (Y  OR  N) ' 

PRINT  '(REMINDER:  STIFFENER  SPACINGS  ARE  THE  SAME  FOR  ALL  FOUR  SIDES)' 
INPUT  DIFSTIFF*\  PRINT  \  PRINT  \  IF  DIFSTIFF*='N'  GOTO  2620 
PRINT  'NOTE:  THIS  PROGRAM  DOES  NOT  RECHECK  MAXIMUM  PLATE  STRESSES  AND  '; 
PRINT  'DEFLECT I ONS'\  PRINT  'ASSOCIATED  WITH  THE  CHANGED  STIFFENER  SPACI ' ; 
PRINT  'NGS.  THIS  CHECK  f^Y  BE  ACCOMPLISHED^  PRINT  'BY  EITHER  REFERRING') 
PRINT  '  TO  THE  STRESS-DEFLECTION  TABLES  GENERATED  IN  PROGRAM  DUCT2' 

PRINT  '(UNDER  OPTION  1),  OR  BY  REEXECUTING  PROGRAM  DUCT2  WITH  THE  REVIS'; 
PRINT  'ED  STIFFENER '\  PRINT  'SPACINGS. '\  PRINT 

PRINT  'ENTER  THE  REVISED  STIFFENER  SPACING  IN  INCHES'N  INPUT  SS(1)\  PRINT 
FOR  1=2  TO  4\SS( I )=SS(1)\  NEXT  I 

IF  DIFF$='Y'  OR  DIFSTIFF$='Y'  THEN  RECALC=0\  GOTO  300 

PRINT  'DO  YOU  WISH  TO  EXECUTE  THE  PINNED-END  STIFFENER  DESIGN  PROGRAM?'; 

PRINT  '(Y  OR  N)'\  INPUT  PINNED*\  PRINT 

C#=','\  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  *5 

PRINT  #5,SS(1) ;C*;SS(2) ;C*;SS(3) ;C$jSS(4)\  CLOSE  #1,#5\I0=0\  DIM  FLAGl(IO) 
DIM  SEW  10)  ,AST(  10), FA (10)  ,QW(  10)  ,QLR(  10)  ,BE(  10)  ,WA(  10)  ,WS(  10) , DST(IO) 

DIM  WELWIO) ,LBRC(I0),FB( 10 ,10,10) ,FBM( 10 ,10,10) ,LY( 10) ,PLANGLE( 10) 

DIM  Y1(I0) , I E ( 1 0 ) , RE( 10) ,BF( 1 0) ,TF( 10) ,TW( 10) ,RT( 10) ,AE( 10) , IXS( 10) 

DIM  PVP(I0,I0,I0) ,FAM(IO,IO,IO) ,P( 10, 10, 10) ,DSA( 10) ,LFT(I0) ,T( 10) ,SS( 10) 
DIM  W1 ( 10 , 10) ,W2( 10 , 10) ,W3( 10 , 10) ,M0( 10) ,A( 10 , 10) ,B( 10 , 10) ,D( 10) ,K1( 10) 

DIM  ANGDI SP(I0),M(I0,I0) ,MMAXPOS( 10) ,WAXNEG( 10) ,FAC( 10) ,FLAG(I0) , PD( 10) 

PRINT  CHR*(27)+'[?4i'\  IF  PINNED*='Y'  GOTO  2750 

PRINT  'CHAINING  TO  PROGRAM  DUCT7;  PLEASE  WAIT'X  CWIN  'DUCT7' 

PRINT  'CHAINING  TO  PROGRAM  DUCT 4 ;  PLEASE  LWIT'N  CHAIN  ' DUCT 4 ' 

AXIAL  FORCE  DUE  TO  INTERNAL  VACUUM  OR  PRESSURE 
FOR  1=1  TO  4 

ON  I  GOTO  2790,2830,2790,2830 

PVP(I ,l,l)=QLV*SS(I)*(LFT(2)+LFT(4))/48 
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2800  PVP(I ,2,l)=QXV*SS(I)*<LFT(2)+LFT(4))/48 

2810  PVP(I,l,2)=-QLP*SS(I)*<LFT(2)-:LFT(4))/48 

2820  PVP(I ,2,2)=-QXP*SS(I)*(LFT(2)+LFT(4))/48\  GOTO  2870 

2830  PVP(I ,l,l)=QLV*SS(I)*(LFT(l)+LFT(3))/48 

2840  PVPU ,2,l)=QXV*SS<I)*(LFT(l)+LFT(3))/48 

2850  PVP( I ,1,2) =-QLP*SS ( 1 ) * ( LFT ( 1 ) +LFT ( 3 ) ) /48 

2860  PVP( I ,2,2)=-QXP*SS( 1 )*(LFT(1)+LFT(3) )/48 

2870  NEXT  I\  RETURN 

!  W  SHAPE  PROPERTY  RETRIEVAL  SUBROUTINE 
2890  LINPUT  *10 ,WSHAPE1*\  LINPUT  *10,WSHAPE2* 

2900  LINPUT  *10 ,WSHAPE3*\  LINPUT  *10,WSHAPE4* 

2910  SECT*=MI D*< WSHAPE1* , 1 % , 7%)\AST=VAL(MI D*< WSHAPE1* , 15% , 6%) ) 

2920  DST=VAL(MID*(WSHAPE1*,29%,5%) )\NDST=VAL(MID*(WSHAPE1* ,42%,2%) ) 

2930  MAXND=VAL(MID*(WSHAPE1*,53%,2%)  )\TW=VAL(MID*(WSHAPE1*,56%,4%) ) 

2940  BF=VAL(MID*(WSHAPE1*,68%,5%)  )\TF=VAL(MID*(WSHAPE2*,6%,5%) ) 

2950  RT=VAL(MID*(WSHAPE2*,45%,4%) )\IXS=VAL(MID*(WSHAPE2*,54%,7%) ) 

2960  YS=0ST/2\  RETURN 
!  WT  PROPERTY  RETRIEVAL  SUBROUTINE 

2980  LINPUT  *10,WT1*\  LINPUT  *10,WT2*\  LINPUT  *10,WT3*\SECT*=MID*(WT1*,1%,12%) 
2990  AST=VAL(MID*(WT1*,18%,5%) )\DST=VAL(MID*(WT1*,31%,5%) ) 

3000  NDST=VAL(MID$(WT1*, 4454,454)  )\MAXND=VAL(MI D*(WT1*, 5354, 454) ) 

3010  TVI=VAL(MI0*(WT1*, 5854, 454) )\BF=VAL(MID*(WT1*, 7054, 554)) 

3020  TF=VAL(MID*(WT2*, 654, 554)  )\RT=VAL(MID*(WT2*, 4554, 454)) 

3030  IXS»VAL(MID*(MT2*, 5654, 654))\YS=VAL(MID*(WT3*,  1954, 554)  )\  RETURN 

!  CHANNEL  PROPERTY  RETRIEVAL  SUBROUTINE 

3050  LINPUT  *10,C1*\  LINPUT  *10,C2*\  LINPUT  *10, C3* 

3060  SECT*=MI  D*(  Cl* ,  154 , 854)\AST=VAL(MI  D*(  Cl* ,  1854 , 554) ) 

3070  DST=VAL(MID*(C1* ,  3154 , 554)  )\NDST=VAL(MI  D*(  Cl* ,  31% , 254) ) 

3080  MAXND=VAL(MID*(C1* , 4154 , 254)  )\TW*LAL(MI  D*(  Cl* ,  46% ,  4%)  ) 

3090  BF=VAL(MI D*( Cl* , 58% , 5%) )\TF=VAL(MI D*( Cl* , 72% , 4%) ) 

3100  IXS=VAL(MID*(C2*,56%,6%) )\YS*DST/2\  RETURN 

!  STIFFENER  EFFECTIVE  SECTION  PROPERTIES  SUBROUTINE 

3120  BE(I)=1.5*T(I)*SQR(EP/FYP)\  REM  Effective  Plate  Width 

3130  AE( I )=AST+BE( I )*T ( I )\  REM  Combined  Stiffener  and  Eff.  Plate  Area 

3140  Y1 ( I )=(AST*YS+BE( I )*T( I )*(DST+T ( I )/2) )/AE( I )\  REM  Eff.  Centroid.  Axis 

!  Effective  Moment  of  Inertia 

3160  IE( I )=IXS+AST*(Y1( I )-YS) A2+BE( I)*T(I)*(T(I ) A2/12+(DST+T ( I )/2-Yl( I ) ) A2) 
3170  RE( I )=SQR( IE( I )/AE( I ) )\  RETURN  \  REM  Effective  Radius  of  Gyration 
!  ALLOWABLE  AXIAL  COMPRESSIVE  STRESS  SUBROUTINE 

3190  CC-SQR(2*PI',2*ES/FYS) 

3200  IF  14 . 4*LFT ( I )/RE( I ) >CC  GOTO  3260 

3210  IF  SHP*3  THEN  IF  BF( I )/TF( I ) >95/SQR(FYS)  THEN  3260  ELSE  3230 

3220  IF  BF( I )/(2*TF( I ) ) >95/SQR(FYS)  GOTO  3260 

3230  TERMl*(l-( (14.4*LFT( I )/RE( I ) )A2)/(2*CCA2) )*FYS 

3240  TERM2=5/3+5 . 4*LFT ( I )/<RE( I )*CC)-373.25*(LFT( I )/RE( I ) ) A3/CCA3 

3250  FA( I ) =TERM1/TERM2\  GOTO  3270 

3260  FA( I )=PI A2*ES/( 397 . 44*(LFT( I )/RE( I ) ) A2) 

3270  RETURN 

'  RIGID  FRAME  STIFFENER  AXIAL  FORCE  AND  AXIAL  STRESS  SUBROUTINE 

3290  IF  CORR*='N'  THEN  3320 

3300  FOR  1=1  TO  4\T( I )=T( I )+CRA\  NEXT  I 

I  Axial  Force  due  to  Tension  Field  Action 

3320  TERM1=(T ( 1 )*LFT ( 1 )+T ( 2)*LFT ( 2)+T(3)*LFT ( 3)+T ( 4)*LFT (4) )*UWP/12 
3330  TERM2=( QDI+QDL)*( LFT ( 1 )+LFT ( 2)+LFT ( 3)+LFT ( 4) ) 

3340  TERM3=(WS(1)*LFT(1)/SS(1)+WS(2)*LFT(2)/SS(2))*12 
3350  TERM4=(WS(3)*LFT(3)/SS(3)+WS(4)*LFT(4)/SS(4))*12 
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IF  QLRO>QS  THEN  TERM5=QLRD*LFT ( 1 )  ELSE  TERM5=QS*LFT(1) 
TERM6=QLAD*LFT(3)+WA(1)+WA(2)+WA(3)+WA(4) 

WG=TERMl+TERM2+TERM3+TERM4+T£RM5+TERM6\PS=(WG*(LSPAN-SS(2)/12)+WB)/4 
Calculate  Axial  Load  Combinations 

FOR  J=1  TO  2\P(1,J,1)=PVP(1,J,1)\P(2,J,1)=PVP(2,J,1)+PS 
P(3, J,1)=PVP<3, J,1)\P(4, J,1)=PVP(4, J,1)+PS 
P(1 , J,2)=PVP(1 , J,2)\P(2 , J,2) =PVP(2, J,2) 

P(3, J,2)=PVP(3, J,2)\P(4, J,2)=PVP(4, J,2) 

P(1,J,3)=PVP(1,J,2)\P(2,J,3)=PS 

P(3, J,3)=PVP(3, J,2)\P(4, J,3)=PS 

P(  1 ,  J ,  4) =0\P( 2 , J , 4) =PS\P( 3 ,  J ,  4) =0\P( 4 , J , 4) =PS\  NEXT  J 
Calculate  Axial  Stress  Combinations 
FOR  1=1  TO  4\  FOR  J=1  TO  2\  FOR  K=1  TO  4 

FAM( I , J,K)=P( I,J,k)/(AE(I)*1000)\  NEXT  K\  NEXT  J\  NEXT  I 
IF  C0RR*='N'  GOTO  3520 
FOR  1=1  TO  4\T ( I )=T( I ) -CRA\  NEXT  I 
RETURN 

RIGID  FRAME  STIFFENER  END  MOMENT  SUBROUTINE 
Fill  Matrix  A,  the  coefficient  matrix 

A( 1 , 1 )=2*( I E(4)/LFT ( 4)+IE(l )/LFT(l ) )\A(1 ,2)=I E(1 )/LFT(l)\A( 1 ,3)=0 
A(1 ,4)=IE(4)/LFT(4)\A(2 ,1)=IE(1)/LFT (1) 

A(2,2)=2*(IE(1)/LFT(1)+IE(2)/LFT(2))\A(2,3)=IE(2)/LFT(2)\A(2,4)=0 

A(3,1)=0\A(3,2)=IE(2)/LFT(2)\A<3,3)=2*(IE(2)/LFT(2)+IE(3)/LFT(3)) 

A(3,4)=IE(3)/LFT(3)\A(4,1)=IE(4)/LFT(4)\A(4,2)=0 

A( 4 , 3)=IE( 3)/LFT(3)\A(4,4)=2*( IE( 3)/LFT(3)+IE(4)/LFT ( 4) ) 

Fill  Vector  D,  the  constant  vector 

D(1)=6*(MO(1)-MO(4))/ES\D(2)=6*(MO(2)-MO(1))/ES 

D(3)=6*(M0(3)-M0(2))/ES\D(4)=6*<M0(4)-M0(3))/ES 

GOSUB  3790N  REM  Go  to  inversion  subroutine  to  find  "A"  Inverse 

FOR  1=1  TO  4\ANGDISP( I )=0\  REM  Mult.  A'  X  D  to  get  corner  ang.  displace. 

FOR  K=1  TO  4\ANGDISP( I )=ANGDISP( I )+B( I ,K)*D(K)\  NEXT  K\  NEXT  I 
Plug  into  slope-deflection  equations  to  get  stiffener  end  moments 
M( 1 ,1 ) =-M0( 1)+ES*IE(1)*( 2*ANGDI SP(1)+ANGDISP(2) )/(6*LFT ( 1 ) ) 

M( 1 , 2)=M0( 1 )+ES*IE(l )*(2*ANGDISP( 2)+ANGDI SP(1) )/( 6*LFT (1 ) ) 
M(2,1)=-M0(2)+ES*IE(2)*(2*ANGDISP(2)4ANGDISP(3) )/(6*LFT(2) ) 
M(2,2)=M0(2)+ES*IE(2)*(2*ANGDISP(3)+ANGDISP(2) )/(6*LFT(2) ) 

M( 3 ,1 ) =-M0( 3)+ES*IE( 3)*( 2+ANGDI SP( 3)+ANGDISP(4) )/(6*LFT( 3) ) 

M( 3 ,2) =M0( 3)+ES*I E( 3)*( 2*ANGDISP( 4)+ANGDI SP(3) )/( 6*LFT (3) ) 

M( 4 ,1) =-M0(4)+ES*IE(4)*( 2*ANGDI SP( 4)+ANGDISP( 1 ) )/(6*LFT( 4) ) 

M( 4 , 2) =M0(4)+ES*IE<4)*( 2*ANGDI SP(1 )+ANGDI SP(4) )/( 6*LFT (4) )\  RETURN 
MATRIX  INVERSION  SUBROUTINE 

Gauss-Jordan  Elimination  (Matrix  A  is  input,  Matrix  B  is  output) 

First,  create  Matrix  B,  with  A  on  the  left  and  I  on  the  right 
FOR  1=1  TO  4\  FOR  J=1  TO  4\B( I , J+4)=Q\B( I , J)=A( I , J)\  NEXT  J 
8( I , I+4)=l\  NEXT  I 

Perform  row  oriented  operations  to  convert  the  left  hand  side  of  B 
to  the  identity  matrix.  The  inverse  of  A  will  then  be  on  the  right. 

FOR  K=1  TO  4 

IF  K=4  THEN  3890  ELSE  M3=K 
Find  maximum  element 

FOR  I =K+1  TO  4\  IF  ABS( B( I ,K) ) >ABS(B(M%,K) )  THEN  M*=I 
NEXT  I\  IF  M%=K  GOTO  3890 

FOR  J=K  TO  8/8=B(K,J)\B(K,J)=B(M%,J)\B(rsJ)=B\  NEXT  J 

FOR  J=K+1  TO  8\B(K,J)=B(K, J)/B(K,K)\  NEXT  J\  REM  Divide  Row  K 

IF  K=1  GOTO  3930 

FOR  1=1  TO  K-l\  FOR  J=K+1  TO  8\B( I , J)=B< I , J)-B( I ,K)*B(K, J)\  NEXT  J 
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3920  NEXT  IN  IF  K=4  GOTO  3950 

3930  FOR  I =K+1  TO  4\  FOR  J=K+1  TO  8\B( I , J)=B( I , J)-8( I ,K)*B(K, J)\  NEXT  J 
3940  NEXT  I 
3950  NEXT  K 

!  Retrieve  inverse  from  the  right  side  of  Matrix  B 

3970  FOR  1=1  TO  4\  FOR  J=1  TO  4\8( I , J)=B( I , J+4)\  NEXT  J\  NEXT  I\  RETURN 

!  MAXIMUM  STIFFENER  MOMENT  AND  BENDING  STRESS  SUBROUTINE 

!  Calculate  maximum  positive  and  negative  stiffener  moments 

4000  FOR  1=1  TO  4\  IF  M(I,1)<0  THEN  hMAXNEG( I )=M< I ,1)  ELSE  ft-ttXNEGC I )=0 

4010  IF  M( I ,1) >0  THEN  MMAXP0S( I ) =M( I ,1)  ELSE  MMAXPOS(I)=0 

4020  FOR  X=.5  TO  LFT(I)  STEP  .5 

4030  MX1=M( I ,1)+(3*W( I ,LC)*LFT ( I )/500-(M( I ,1)+M( I ,2) )/LFT ( I ) )*X 

4040  MX=MX1-3*W(I ,LC)*XA2/500 

4050  IF  MX<MMAXNEG( I )  THEN  ft1AXNEG( I ) =MX 

4060  IF  MX>M4AXPOS( I )  THEN  MMAXPOS( I )=MX 

4070  NEXT  X\  NEXT  I 

!  Calculate  maximum  bending  stresses 

4090  FOR  1=1  TO  4\FBM( I ,1 , 1)=MMAXP0S( I )*( DST( I ) -Y1 ( I ) )/IE( I ) 

4100  FBM( I ,2,l)=ff1AXP0S( I )*Y1( I )/IE( I ) 

4110  FBM( I ,3,1)=MMAXP0S( I )*(DST(I )+T( I )-Yl( I ) )/IE( I ) 

4120  FBM( I ,1 ,2)=MMAXNEG( I )*Y1( I )/IE( I ) 

4130  FBM( I ,2,2)=MMAXNEG( I )*(DST( I ) -Yl( I ) )/IE( I ) 

4140  FBM( I , 3,2)=hMAXNEG( I )*(DST( I )+T( I )-Yl( I ) )/IE( I )\  NEXT  I\  RETURN 
i  ALLOWABLE  BENDING  STRESS  SUBROUTINE 
4160  IF  LBRC( I )/12<LFT ( I )  THEN  4230 

4170  IF  ABS(M1AXNEG( I ) ) >ABS(M( 1 ,1) )  AND  ABS(MMAXNEG( I ) ) >ABS(M( I ,2) )  THEN  4230 
4180  IF  MMAXPOS(I)>ABS(M(I ,1))  AND  MMAXPOS( I ) >ABS(M( I ,2) )  THEN  4230 
4190  IF  ABS(M( I ,1) ) <ABS(M( I ,2) )  THEN  MRATI0=M(I ,1)/M( I ,2)\  GOTO  4210 
4200  MRATIO=M( 1 , 2)/M( I ,1) 

4210  CB=1.75+1.05*MRATIO+.3*MRATI0A2\  IF  CB>2.3  THEN  CB=2.3 
4220  GOTO  4240 
4230  CB=1 

4240  IF  SHP=3  GOTO  4500 
!  W  and  WT  Shapes  -  Positive  moments 
4260  IF  WELD*( I )  O'C'  GOTO  4370 
4270  IF  FAC( I )/FYS> .16  GOTO  4290 

4280  IF  DST(I)/TW(I)>(640/SQR(FYS))*a-3.74*FAC(I)/FYS)  THEN  4370  ELSE  4300 
4290  IF  DST( I )/TW( I ) >257/SQR(FYS)  THEN  4370 
4300  IF  LBRC( I ) >76/SQR(FYS)  GOTO  4370 

4310  IF  LBRC( I ) >20000*TF( I )*BF( I )/( (DST( I )+T ( I ) )*FYS)  GOTO  4370 
4320  IF  BF( I )/(2*TF( I ) ) >=95/SQR(FYS)  GOTO  4370 
4330  IF  8F( I )/(2*TF( I ) ) >65/SQR(FYS)  GOTO  4350  * 

4340  FB(I ,1,1)=.66*FYS\FB(I ,2, 1 )= . 66*FYS\FB( I ,3,1)=.66*FYP\  GOTO  4460 
4350  FB( I ,1 ,1)=FYS*( .79-.002*BF( I )*SQR(FYS)/(2*TF( I ) ) )\FB( I ,2,1 )=FB( 1,1,1) 
4360  FB( I ,3,1)=FB< I ,1 , 1)*FYP/FYS\  GOTO  4460 
4370  FB( I ,1 ,  1)  =  .6*F"YS\F8( I , 3,1)=.6*FYP 

4380  IF  BF ( I )/( 2*TF ( I ) ) >95/SQR( FYS)  THEN  FB( I ,2,1 ) = . 001\  GOTO  4460 

4390  IF  LBRC( I ) <=76*BF( I )/SQR(FYS)  THEN  FB( I ,2,1)=.6*FYS\  GOTO  4460 

4400  IF  LBRC( I ) >SQR(510000*CB/FYS)*RT ( I )  GOTO  4430 

4410  FB( I ,2,l)=(2/3-FYS*(LBRC( 1 )/RT ( I)) A2/( . 153E+07*CB) )*FYS 

4420  IF  FBa,2,l)>.6*FYS  THEN  FB(  1 , 2 , 1 )  = .  6*FYS\  GOTO  4460 

4430  FB( 1,2,1) =170000*CB/(L8RC( I )/RT ( I ) ) A2 

4440  IF  FB( 1,2,1) > .6*FYS  THEN  FB( I , 2 , 1 ) = . 6*FYS 

!  W  and  WT  Shapes  -  Negative  moments 

4460  FB( I ,1 ,2) =.6*FYS\FB( I ,2,2)=. 6*FYS\FB( I ,3,2)=.6*FYP\  GOTO  4570 
!  Channels  -  Positive  moments 
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4500  FB(I ,1,1)=.6*FYS\F8(I ,3,1)*.6*FYP 

4510  IF  BF( I )/TF ( I ) >95/SQR( FYS)  THEN  FB( I ,2,1)=.0Q1\  GOTO  4560 
4520  IF  LBRC( I ) <=76*BF ( I )/SQR(FYS)  THEN  FB( I ,2,1)=.6*FYS\  GOTO  4560 
4530  FB( I ,2,1)=12000*CB*(BF( I )*TF( I ) )/(LBRC( I )*(DST( I )+T( I ) ) ) 

4540  IF  FB( I ,2,1) > .6*FYS  THEN  FB( I , 2 , 1 ) = . 6*FYS 
!  Channels  -  Negative  moments 

4560  FB( I ,1,2) = .6*FYS\FB( I ,2,2)=. 6*FYS\FB( I ,3,2)=. 6*FYP 
4570  RETURN 

!  INTERACTION  FORMULAS  SUBROUTINE 

4590  FE=PI A2*ES*IE( I )/( 397.44*LFT( I ) A2*AE( I ) ) 

4600  ON  LCOND  GOTO  4610,4640,4670 

4610  FA=FA( I )\FBSCP=FB( I ,2,1)\F8SCN=FB( I ,2,2)\CFYS=.6*FYS\CFYP=.6*FYP 
4620  FBSTP=FB( I ,1 ,1)\FBSTN=FB( I ,1 ,2)\F8PP=FB( I , 3,1 )\FBPN=FB( I ,3,2) 

4630  GOTO  4710 

4640  FA=4*FA( 1 )/3\FBSCP=4*FB< I ,2,1)/3\FBSCN=4*FB( I ,2,2)/3\CFYS=.8*FYS 

4650  FE=4*FE/3\CFYP= . 8*FYP\F8STP=4*F8( I ,1 ,1)/3\FBSTN=4*FB( I ,1 ,2)/3 

4660  FBPP=4*FB(I ,3,1)/3\FBPN=4*FB( I ,3,2)/3\  GOTO  4710 

4670  FA=5*FA( I )/3\FBSCP=*5*FB( I , 2 ,l)/3\  IF  FBSCP>FYS  THEN  FBSCP=FYS 

4680  CFYS=FYS\FBSCN=5*FB(I ,2,2)/3\  IF  FBSCN>FYS  THEN  FBSCN=FYS 

4690  FE=23*FE/12\CFYP=FYP\FBSTP=5*FB( I ,1 ,l)/3\  IF  FBSTP>FYS  THEN  FBSTP=FYS 

4700  FBPP=FYP\FBPN=FYP\FBSTN=5*FB( I ,1 ,2)/3\  IF  FBSTN>FYS  THEN  FBSTN=FYS 

4710  IF  FAC( I ) <=0  GOTO  4920 

!  Simultaneous  Axial  Compression  and  Transverse  Loading 

4730  IF  FAC( I )/FA> .15  GOTO  4780 

!  Negligible  Axial  Stress 

4750  IF  FAC( I )/FA+FBh( I ,2,1)/FBSCP>1  THEN  4990 

4760  IF  FAC( I )/FA+ABS( FBM( I ,2,2) )/FBSCN>l  THEN  4990  ELSE  4880 

1  Significant  Axial  Stress 

4780  IF  FAC(I)/FA+.85*FBM(I , 2 , 1 )/( ( 1-FAC( I >/FE)*FBSCP) >1  GOTO  4990 
4790  IF  FAC( I )/FA+. 85*ABS( FBM( I ,2,2) )/( (l-FACC I )/FE)*FBSCN) >1  GOTO  4990 
4800  IF  M( I , 1 ) <0  GOTO  4820 

4810  IF  FAC( I )/CFYS+M( I ,1 )*Y1( I )/( I E( I )*FBSCP) >1  THEN  4990  ELSE  4830 
4820  IF  FAC( I )/CFYS-M( I ,1)*(DST( I)-Y1(I))/(IE(I )*FBSCN) >1  GOTO  4990 
4830  IF  M(  I , 2) <0  GOTO  4860 

4840  IF  FAC( I )/CFYS+M( I ,2)*(DST ( I ) -Y1 ( I ) )/( I E( I )*FBSCN) >1  THEN  4990 
4850  GOTO  4830 

4860  IF  FAC(I)/CFYS-M(I ,2)*Y1< I )/( I E( 1 )*FBSCP) >1  GOTO  4990 
1  Check  Maximum  Plate  Stress 

4880  IF  FYP>=FYS  GOTO  5000 

4890  IF  FAC( I )/CFYP+ABS( FBM( I ,3,2) )/FBPN>l  GOTO  4990 
4900  IF  FBM( I ,3,1) >FBPP  THEN  4990  ELSE  5000 
1  Simultaneous  Axial  Tension  and  Transverse  Loading 
4920  IF  FAC(I)/CFYS+FBM(I ,1 ,1)/FBSTP>1  GOTO  4990 
4930  IF  FAC( I )/CFYS+ABS( FBM( 1,1,2) )/FBSTN>l  GOTO  4990 
4940  IF  FBM( I ,2,1) >FBSCP  GOTO  4990 
4950  IF  ABS(FBM( I ,2,2) ) >FBSCN  GOTO  4990 
1  Check  Maximum  Plate  Stress 

4970  IF  ABS(FAC(I))/CFYP+FBM(I ,3,1)/FBPP>1  GOTO  4990 
4980  IF  ABS(FBM(I ,3,2))>FBPN  THEN  4990  ELSE  5000 
4990  FLAG( I ) =1 
5000  RETURN 

'  COMBINED  STIFFENER  WD  ADJACENT  EFFECTIVE  PLATE  DEFLECTION  SUBROUTINE 
1  Calculate  Maximum  Stiffener  Deflection 

5030  DMAX«0\  IF  PD(I)<=0  GOTO  5130 

1  Simultaneous  axial  compression  and  transverse  loading 

5050  FOR  X= . 5  TO  LFT(I)  STEP  .5\T1=12*K1( I )*X\T2=12*K1 ( I )*LFT ( I ) 
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5060  TERM1=FNTAN(6*K1( I )*LFT< I ) )*S1N(T1 )+72*Kl( I ) A2*XA2+C0S(T1 ) -1 
5070  DSXA=N( I , LC)*TERM1/(12*K1( I ) A2*PD( I ) )-6*W( I ,LC)*LFT( I )*X/PD( I ) 

5080  DSXB1=-1000*M(I ,1)*<SIN(T1)/FNTAN(T2)-C0S(T1)-X/LFT(I )+l)/PD(I) 

5090  DSXB2=-1000*M( I ,2)*<SIN(T1)/SIN(T2)-X/LFT( I ) )/PD( I ) 

5100  DSX=DSXA+0SXB1+DSXB2\  IF  ABS(DSX) >DMAX  THEN  DMAX=ABS( DSX) 

5110  NEXT  X\  GOTO  5190 

!  Simultaneous  axial  tension  and  transverse  loading 

5130  FOR  X= . 5  TO  LFT(I)  STEP  .5 

5140  TERM1= . 072*W( I , LC)*X*( LFT ( I ) A3-2*LFT ( I )*XA2+XA3)/( ES*I E( I ) ) 

5150  TERM2=24*M( I ,1)*X*(LFT( I ) -X)*( 2*LFT( I ) -X)/( LFT ( I )*ES*IE( I ) ) 

5160  TERM3=24*M( I ,2)*LFT( I )*X*( 1-XA2/LFT( I )A2)/(ES*IE( I ) ) 

5170  DSX=TERM1+TERM2+TERM3\  IF  ABS( DSX) >DMAX  THEN  DMAX=ABS( DSX) 

5180  NEXT  X 

5190  IF  DMAX>LFT ( I )*12/DSA( LCOND)  THEN  F'AQ(I)=1\  REM  Compare  Max.  to  Allow. 
5200  RETURN 

!  AISC  1.10.5.4  STIFFENER  MOMENT  OF  INERTIA  AND  GROSS  AREA  REQUIREMENT 

!  Stiffener  Moment  of  Inertia  Requirement 

5230  IW=IXS( I )+AST ( I )*(DST( I ) -YS< I )+T( I )/2)A2 

5240  IF  1=2  THEN  LYT=LY( 2)\LYB=LY( 3)\  GOTO  5260 

5250  LYT =LY ( 1 ) \LYB=LY ( 4 ) 

5260  H4EB=12*LFT ( I ) -LYT-LYBX  IF  IW<(H4EB/50)A4  GOTO  5350 
!  Stiffener  Gross  Area  Requirement 

5280  ALPHA=SS( I )/HWEB\K2=4+( 5 . 34/ALPHAA2)\CV=45000*K2/( FYP*( HNEB/T ( I ) ) A2) 

5290  IF  CV>  . 8  THEN  CL>=190*SQR( K2/FYP)/( H4EB/T ( I ) ) 

5300  FVAVG=WG*LSPAN/(4000*rt4EB*T ( I ) )\FVALL=FYP*CV/2 .89 
5310  IF  FVALL) . 4*FYP  THEN  FVALL=.4*FYP 
5320  BETA=2 . 4*FVAk)G/FVALL 

5330  AREQ=(1-CV)*(ALPHA-ALPHAA2/SQR(1+ALPHAA2))*FYP*HWEB*T(I)*BETA/(2*FYS) 
5340  IF  AST ( 1 ) <AREQ  THEN  5350  ELSE  5360 
5350  FLAG( I )=1 
5360  RETURN 
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SET  NO  DOUBLE 

10  REM  PROGRAM  N*1E:  0UCT7 

20  REM 

30  REM  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  PERFORM  CHECKS  ON  THE  DUCT 

40  REM  SECTION,  WHERE  THE  DUCT  SECTION  IS  CONSIDERED  TO  BE  A  SIMPLY 

50  REM  SUPPORTED  BENDING  MEMBER 

60  REM 

70  PROGRAM  DUCT7 
80  LET  14=4 

90  DIM  AL(I4),LX(I4),LY(14),YL(I4),T(I4),IL(I4),SS(I4) ,SSE( I4),WS(I4),WA(I4) 
100  DIM  LSEC*( 14) ,FVEND( 14) , FVINT( 14) 

110  OPEN  'LP: '  FOR  OUTPUT  AS  FILE  #1\  OPEN  'DATA3'  FOR  INPUT  AS  FILE  #3 

120  OPEN  'DATA4'  FOR  INPUT  AS  FILE  #4 

130  INPUT  #3,XX,XX*,XX,XX,£P,FYP 

140  INPUT  ♦3,UWP,QDL,XX,XX,XX,QS 

150  INPUT  #4,XX*,QDI ,XX,XX,XX,XX,QLRD,QLAD 

160  CLOSE  ♦3,#4\  PRINT 

170  PRINT  'DO  YOU  I^WT  A  HARD  COPY  OF  THE  DUCT  SECTION  CHECK  OUTPUT?  (Y  OR  N)' 
180  INPUT  HCOPY* 

190  CWGl»='N'\CWG2*='N'\CHNG3*='N'\CHNG4i='N' 

200  IF  HCOPY*='N'  THEN  PRINT  CHR*(2?)+' [?4i '\  GOTO  220 

210  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*(27)+' [ ?5i ' 

220  IF  CKNG1*='Y'  GOTO  290 

230  IF  CHNG2*='Y'  OR  C1MG3»=/Y/  OR  CHNG4*='Y'  THEN  340 

240  PRINT  \  PRINT  \  PRINT  TA0(3Q) ; 'DUCT  SECTION  CHECKS'N  PRINT  \  PRINT 

250  PRINT  'THIS  PROGRAM  APPLIES  TO  DUCTS  WITH  RECTANGULAR  CROSS  SECTIONS  '; 

260  PRINT  'ONLY.  DUCT'N  PRINT  'SECTION  CHECKS  FOR  DUCTS  WITH  OTHER  THAN  '; 

270  PRINT  'RECTANGULAR  CROSS  SECTIONS  MUST  BE'\  PRINT  'ACCOMPLISHED  BY  HAND.' 
280  PRINT  \  PRINT  "ENTER  POISSON'S  RATIO  FOR  THE  DUCT  PLATE *\  INPUT  PR\  PRINT 
290  PRINT  'ENTER  THE  DUCT  WIDTH  (INTERIOR  HORIZONTAL  DIMENSION)  IN  INCHES' 

300  INPUT  W\  PRINT 

310  PRINT  'ENTER  THE  DUCT  HEIGHT  (INTERIOR  VERTICAL  DIMENSION)  IN  INCHES' 

320  INPUT  H\  PRINT 

330  PRINT  'ENTER  THE  DUCT  SECTION  CLEAR  SPAN  IN  FEET'\  INPUT  LSPAN\  PRINT 
340  PRINT  'ENTER  THE  PLATE  THICKNESSES  (NOT  INCLUDING  CORROSION  ALLOWANCES)  '; 
350  PRINT  'OF  SIDES  1,  2,'\  PRINT  '3  PND  4,  IN  DECIMALS  OF  AN  INCH.  (SIDE  '; 
360  PRINT  '1  IS  TOP  PWEL,  SIDES  2WD4  ARE  SIDE'\  PRINT  'PANELS,  SIDE  3  IS'; 
370  PRINT  '  BOTTOM  PANEL)' 

380  INPUT  T(1),T(2),T(3),T(4)\  PRINT 
390  IF  CW4Gli='Y'  OR  CWG2*='Y'  THEN  520 
400  IF  CHNG4*='Y'  THEN  870 

410  PRINT  'ENTER  THE  INTERIOR  PANEL  STIFFENER  SPACINGS  FOR  SIDES  1  THROUGH'; 

420  PRINT  '  4  IN  INCHES'N  INPUT  SS(1) ,SS(2) ,SS(3) ,SS(4)\  PRINT 

430  PRINT  'ENTER  THE  END  PANEL  STIFFENER  SPACINGS  FOR  SIDES  1  THROUGH'; 

440  PRINT  '  4  IN  INCHES'N  INPUT  SSE(l) ,SSE(2) ,SSE(3) ,SSE(4)\  PRINT 
450  IF  CHNG3$='Y'  THEN  870 

460  PRINT  'ENTER  THE  NOMINAL  STIFFENER  WEIGHTS,  IN  PLF ,  FOR  SIDES  1  THROUGH  4' 

470  INPUT  WS(1),WS(2),WS(3),WS(4)\  PRINT  \  PRINT 

480  PRINT  'ENTER  THE  UNIT  WEIGHT  OF  THE  CORNER  ANGLES  IN  PCF' 

490  INPUT  UWA\  PRINT 
500  IF  HC0PY*='N'  GOTO  520 

510  PRINT  CHR*(27)+'(?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*(27)+'[?5i ' 

520  PRINT  'ENTER  THE  EQUAL  LEG  CORNER  ANGLES  SELECTED  FOR  CORNERS  1,  2,  '; 

530  PRINT  '3  PND  4'\  PRINT 

540  PRINT  'NOTE:  CORNER  1  IS  THE  "UPPER  LEFT"  CORNER  OF  THE  DUCT,  (*ID  '; 

550  PRINT  'CORNER  NUMBERING'N  PRINT  'PROCEEDS  CLOCKWISE  AROUND  THE  DUCT.  '; 
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560  PRINT  'EXAMPLES  OF  THE  INPUT  FORMAT  INCLUDE'S  PRINT  'L3X3X4,  L3.5X3.5'; 

570  PRINT  'X5,  L4X4X8  PND  L5X5X12,  WHERE  THE  FIRST  TWO  NUMBERS  IN  THE  INPUT' 

580  PRINT  'STRING  ARE  THE  ANGLE  LEG  LENGTHS,  AND  THE  LAST  NUMBER  IS  THE  '; 

590  PRINT  'ANGLE  THICKNESS  IN'\  PRINT  'SIXTEENTHS  OF  FN  INCH.  UNLESS  SPE' j 

600  PRINT  'CIAL  CONSIDERATIONS  DICTATE  OTHERWISE,  ALL'\  PRINT  'FOUR  CORNE' 5 

610  PRINT  'R  ANGLES  SHOULD  BE  THE  SAME  SIZE.  THE  LIGHTEST  RECOMMENDED  CORNER' 

620  PRINT  'ANGLE  IS  L3X3X4.'\  PRINT 

630  INPUT  LSEC*(1),LSEC*(2),LSEC*(3),LSEC*(4)S  PRINT 

640  REM  Read  in  the  corner  angle  section  properties 

650  ENDF1LE=0S  FOR  1=1  TO  4\AL(I)=0\  NEXT  I 

660  OPEN  'EA'  FOR  INPUT  AS  FILE  *10 

670  LINPUT  *10 ,EA1*S  LINPUT  *10,EA2*\  LINPUT  *10,EA3* 

680  LSEC*=MID*(EAl*,l%,10«)SAL=VAL(MID*(EAl*,m,65O) 

690  LY=VAL(MID*(EAl*,32J4,35i)  )SLX=VAL(MID*(EA1*,45%,3JJ) ) 

700  IL=VAL(MID*(EA2*,5«,6Ji))SYL=VAL(MID*(EA2*,45X.,550) 

710  FOR  1=1  TO  4\  IF  LSEC*< >LSEC*( I )  THEN  730 
720  AL( I ) =AL\LY ( I ) =LY\LX( I ) =LX\I L( I) = I L\YL( I ) =YL 
730  NEXT  I\  IF  LSEC*='L8X8X16'  THEN  ENDFILE=1 
740  FLAG=0\  FOR  1=1  TO  4\  IF  AL(1)=0  THEN  FLAG=1 
750  NEXT  I 

760  IF  FLAG=1  AND  ENDFILE=0  THEN  670 

770  IF  FLAG=1  AND  ENDFILE=1  THEN  780  ELSE  870 

780  FOR  1=1  TO  4\  IF  AL(I)<>0  THEN  810 

790  PRINT  'THE  ANGLE  SECTION  THAT  YOU  INPUT  FOR  CORNER' ; I ;' IS  NOT  AVAILA' ; 

800  PRINT  'BLE  IN  THIS  PROGRAM'S  PRINT 

810  NEXT  I\  PRINT  'PLEASE  REENTER  THE  EQUAL  LEG  CORNER  ANGLE  SECTIONS'S  PRINT 
820  PRINT  S  CLOSE  *10S  IF  HCOPY*='N'  GOTO  840 

830  PRINT  CHR*(27)+'[?4i'S  PRINT  *1,CHR*(12)S  PRINT  CHR*(27)+' [?5i ' 

840  GOTO  520 

850  REM  Calculate  the  uniformly  distributed  gravity  load  on  the  duct  section 

860  REM  Compute  the  corner  angle  weights 

870  CLOSE  *10S  FOR  1=1  TO  4SWA( I ) =AL( I )*UWA/144S  NEXT  I 

880  REM  Compute  the  uniform  load 

890  TERM1=( (T(l)+T(3) )*V+f(T(2)+T(4) )*H)*UWP/144+( QDI+QDL)*(W+H)/6 
900  TERM2=WS(1)*W/SS(1)+WS(2)*H/SS(2)+WS(3)*W/SS(3)+WS(4)*H/SS(4) 

910  IF  QLRD>QS  THEN  TERM3=QLRD*W/1 2  ELSE  TERM3=QS*W/1 2 
920  TERM4=QLAD*W/12+WA( 1 )+WA( 2)+WA( 3)4WA( 4) 

930  WG=TERM1+TERM2+TERM3+TERM4 

940  REM  Calculate  the  effective  compression  flange  stress 

950  GOSUB  2770 

960  IF  FLAG=0  THEN  1000 

970  PRINT  S  PRINT  S  PRINT  'THE  EFFECTIVE  COMPRESSION  FLANGE  STRESS  COMPUTA' ; 

980  PRINT  'TION  FAILED'S  PRINT  S  PRINT 

990  REM  Calculate  the  reduced  allowable  flange  stress 

1000  IF  T( 2) <T( 4)  THEN  T=T(2)SLYT=LY(2)SLXT=LX(2)SLYB=LY(3)SALT=AL(2)S  GOTO  1050 
1010  IF  T(4) <T( 2)  THEN  T=T(4)SLYT=LY(1)SLXT=LX(1)SLYB=LY(4)SALT=AL(1)S  GOTO  1050 
1020  IF  LY(1)+LY(4) >LY(2)+LY(3)  THEN  1040 

1030  T=T ( 4 ) SLYT =LY ( 1 ) SLXT =LX ( 1 ) SLYB=LY ( 4 ) SALT =AL ( 1 ) S  GOTO  1050 

1040  T=T(2)SLYT=LY(2)SLXT=LX(2)SLYB=LY(3)SALT=AL(2) 

1050  FBRl=l-.0005*H*(T(2)+T(4))*((H-LYT-LYB)/T-760/SQR( .6*FYP) )/(W*T( 1 ) ) 

1060  F8R= . 6*FYP*FBR1 

1070  IF  CHNG1*='Y'  THEN  CWG1*='N' 

1080  IF  CFMG2*='Y'  THEN  CHNG2*='N' 

1090  IF  CWG3*='Y'  THEN  QNG3*='N' 

1100  IF  CHNG4$='Y'  THEN  CWG4*='N' 

1110  FLAG1=0 
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1120  REM  Compare  effective  compression  flange  stress  to  reduced  allowable 

1130  REM  flange  stress 

1140  IF  FBE<=FBR  THEN  1360  ELSE  FLAG1=1 

1150  PRINT  \  PRINT 

1160  PRINT  'THE  EFFECTIVE  COMPRESSION  FLANGE  STRESS  IS  GREATER  THAN  THE  RED'; 
1170  PRINT  'UCED  ALLOWABLES  PRINT  'FLANGE  STRESS.  YOU  MUST  EITHER  INCREASE'; 
1180  PRINT  '  THE  DUCT  SIDE  PND/OR  TOP  PLATE  THICK-'\  PRINT  'NESSES,  INCREASE'; 
1190  PRINT  '  THE  SIZE  OF  THE  CORNER  ANGLES,  REDUCE  THE  DUCT  CLEAR  SPAN,  OR' 

1200  PRINT  'MODIFY  THE  DUCT  CROSS  SECTION  DIMENSIONS  TO  PROVIDE  A  GREATER  '; 
1210  PRINT  'EFFECTIVE  SECTIONS  PRINT  'MODULUS. S  PRINT  \  PRINT 
1220  PRINT  'DO  YOU  WISH  TO  MAKE  WY  OF  THESE  CHANGES?  (Y  OR  N)'\  INPUT  CHNG1* 
1230  PRINT  \  IF  CI*IG1*='Y'  GOTO  200 

1240  PRINT  \  PRINT  \  PRINT  TAB(30) ; ******  WARNING  *★***' 

1250  PRINT  '  THIS  PROGRAM  IS  CONTINUING  WITH  THE  DUCT  SECTION  CHECKS.  '; 
1260  PRINT  'HOWEVER,  YOUS  PRINT  '  ARE  WARNED  THAT  THE  EFFECTIVE  COMPRE' ; 
1270  PRINT  'SSI ON  FLANGE  STRESS  EXCEEDS  THES  PRINT  '  REDUCED  ALLOWABLE'; 
1280  PRINT  '  FLANGE  STRESS.  THE  PRESENT  DUCT  CONFIGURATION  SHOULD' 

1290  PRINT  '  NOT  BE  USED.  RATHER,  ONE,  SOME  OR  ALL  OF  THE  MODIFICATIONS'; 
1300  PRINT  '  RECOftiENDEDS  PRINT  '  ABOVE  SHOULD  BE  MADE,  AND  THIS  PROGR' ; 
1310  PRINT  'AM  SHOULD  THEN  BE  REEXECUTED  TOS  PRINT  '  CHECK  THE  ADEQUACY' ; 
1320  PRINT  '  OF  THE  MODIFIED  DUCT  SECTION.S  PRINT  \  PRINT 
1330  IF  HCOPY**'N'  GOTO  1360 

1340  PRINT  CHR*(27)+'[?4i'\  PRINT  #1,CHR*(12)\  PRINT  CHR*(27)+' [?5i ' 

1350  REM  Check  compression  flange  vertical  buckling 
1360  IF  (H-LYT-LYB)/T <=2000/SQR(FYP)  THEN  1590 
1370  ACF=30*TA2+(LXT+BE/2)*T(1)+ALT 

1380  FBVB=PI A2*EPA2*TA3/(24*(1-PRA2)*(H-LYT-LYB)*ACF*(16.5+FYP) ) 

1390  IF  FBE<=FBVB  THEN  1590  ELSE  FLAG1=1 
1400  PRINT  \  PRINT 

1410  PRINT  'THE  EFFECTIVE  COMPRESSION  FLANGE  STRESS  EXCEEDS  THAT  WHICH  MAY  '; 
1420  PRINT  'CAUSE  COMPRESSIONS  PRINT  'FLANGE  VERTICAL  BUCKLING.  YOU  MUST  '; 
1430  PRINT  'INCREASE  THE  DUCT  SIDE  PLATE  THICKNESSESS  PRINT  'AND/OR  INCRE' ; 
1440  PRINT  'ASE  THE  SIZE  OF  THE  TOP  CORNER  ANGLES. '\  PRINT  \  PRINT 
1450  PRINT  'DO  YOU  WISH  TO  MAKE  EITHER  OF  THESE  CHWGES?  (Y  OR  N)' 

1460  INPUT  CHNG2*\  PRINT  \  IF  CHNG2*='Y'  GOTO  200 
1470  PRINT  \  PRINT  \  PRINT  TAB< 30 ); '***★*  WARNING  *****' 

1480  PRINT  '  THIS  PROGRAM  IS  CONTINUING  WITH  THE  DUCT  SECTION  CHECKS.  '; 
1490  PRINT  'HOWEVER,  YOUS  PRINT  '  ARE  WARNED  THAT  THE  EFFECTIVE  COMPRE'; 
1500  PRINT  'SSI ON  FLANGE  STRESS  EXCEEDS  THATS  PRINT  '  WHICH  MAY  CAUSE  '; 
1510  PRINT  'COMPRESSION  FLANGE  VERTICAL  BUCKLING.  THE  PRESENT  DUCT' 

1520  PRINT  '  CONFIGURATION  SHOULD  NOT  BE  USED.  RATHER,  ONE  OR  BOTH  OF  '; 
1530  PRINT  'THE  MODIFI-S  PRINT  '  CATIONS  RECOfWENED  ABOVE  SHOULD  BE  MA' ; 
1540  PRINT  'DE,  AND  THIS  PROGRAM  SHOULD  THENS  PRINT  '  BE  REEXECUTED  TO'; 
1550  PRINT  '  CHECK  THE  ADEQUACY  OF  THE  MODIFIED  DUCT  SECTION.S  PRINT  \  PRINT 
1560  IF  HCOPY»='N'  GOTO  1590 

1570  PRINT  CHR*(27)+'[?4iS  PRINT  *1,CHR*(12)\  PRINT  CHRi(27)+' [?5i ' 

1580  REM  Calculate  allowable  web  shear  stress 
1590  FOR  1=2  TO  4  STEP  2 

1600  IF  1=2  THEN  T=T(2)\LYT=LY(2)\LYB=LY(3)\  GOTO  1630 
1610  T  =T ( 4 ) \LYT =LY(1)\LYB=LY(4) 

1620  REM  End  Panels 

1630  Kl=4+5.34/(SSE( I )/(H-LYT-LYB) )A2 

1640  CV=45000*K1/(FYP*<(H-LYT-LYB)/T)A2)\  IF  CV<.8  THEN  1660 

1650  CV=190*SQR(K1/FYP)*T/(H-LYT-LYB) 

1660  FVEND( I ) =FYP*CV/2 . 89\  IF  FVEND( I ) > .4*FYP  THEN  FVEND( I )=.4*FYP 

1670  REM  Interior  Par, els 
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1680  Kl=4+5.34/(SS( I )/(H-LYT-LYB) )A2 

1690  CV=45000*K1/(FYP*((H-LYT-LYB)/T)‘2)S  IF  CV<. 8  THEN  1710 

1700  CV=190*SQR ( Kl/FYP ) *1/ ( H-LYT-LYB ) 

1710  FVINT ( I )=FYP*CV/2.89 

1720  IF  FVINT(I)>.4*FYP  THEN  FVINT( I )=.4*FYP 

1730  NEXT  I 

1740  REN  Calculate  average  web  shear  stress 
1750  REN  End  Panels 

1 760  FVAVGEND=WG*LSPAN/ ( 20  00*H* ( T ( 2 ) +T ( 4 ) ) ) 

1770  REM  Interior  Panels 

1780  IF  LSPAN-H/2<0  THEN  FVAVGINT=0S  GOTO  1810 

1790  FVAVGINT=WG*(LSPAN-H/12)/<2000*H*(T(2)+T(4))) 

1800  REN  Compare  average  web  shear  stress  to  allowable  web  shear  stress 
1810  FLAG=0S  PRINT  \  PRINT  \  FOR  1=2  TO  4  STEP  2 
1820  IF  FVAVGEND<=FVEND( I )  THEN  1860 

1830  FLAG=1S  PRINT  'THE  AVERAGE  WEB  SHEAR  STRESS  IN  THE  END  PANELS  ON  ' ; 
1840  PRINT  'SIDE' ;I {'EXCEEDS  THE  ALLOWABLE'S  PRINT  'WEB  SHEAR  STRESS.' 

1850  PRINT 

1860  IF  FVAVGINT <=FVINT( I )  THEN  1900 

1870  FLAG=1\  PRINT  'THE  AVERAGE  WEB  SHEAR  STRESS  IN  THE  INTERIOR  PANELS' ; 
1880  PRINT  '  ON  SI DE' ; I ;' EXCEEDS  THE  ALLCW-'S  PRINT  'ABLE  WEB  SHEAR  '; 

1890  PRINT  'STRESS. '\  PRINT 

1900  NEXT  I 

1910  IF  FLAG=0  THEN  2100  ELSE  FLAG1=1 

1920  PRINT  \  PRINT  'YOU  MUST  INCREASE  THE  DUCT  SIDE  PLATE  THICKNESS  OR  DECREA' ; 
1530  PRINT  'SE  THE  APPROPRIATE  SIDE'\  PRINT  'STIFFENER  SPACINGS  IN  ORDER  TO  ' j 

1940  PRINT  'ENSURE  THAT  AVERAGE  WEB  SHEAR  STRESSES  ARE  LESS'\  PRINT  'THfl4  OR'; 

1950  PRINT  '  EQUAL  TO  ALLOWABLE  WEB  SHEAR  STRESSES. '\  PRINT  \  PRINT 

1960  PRINT  'DO  YOU  WISH  TO  MAKE  EITHER  OF  THESE  CHANGES?  (Y  OR  N) ' 

1970  INPUT  CHNG3*\  IF  CHNG3*='Y'  THEN  200 

1980  PRINT  \  PRINT  \  PRINT  TABOO) ; '*****  WARNING  ***★*' 

1990  PRINT  '  THIS  PROGRAM  IS  CONTINUING  WITH  THE  DUCT  SECTION  CHECKS.  '; 
2000  PRINT  'HOWEVER,  YOU'\  PRINT  '  ARE  WARNED  THAT  THE  AVERAGE  WEB  SHEAR'; 
2010  PRINT  '  STRESS  EXCEEDS  THE  ALLOWABLE  WEB'\  PRINT  '  SHEAR  STRESS  AS  ' ; 
2020  PRINT  'NOTED  ABOVE.  THE  PRESENT  DUCT  CONFIGURATION  SHOULD  NOT' 

2030  PRINT  '  BE  USED.  RATHER,  ONE  OR  BOTH  OF  THE  MODIFICATIONS  RECOMMEN' ; 
2040  PRINT  'DED  ABOVE '\  PRINT  '  SHOULD  BE  MADE,  AND  THIS  PROGRAM  SHOULD  '; 
2050  PRINT  'THEN  BE  REEXECUTED  TO  CHECK  THE'\  PRINT  '  ADEQUACY  OF  THE  ' ; 
2060  PRINT  'MODIFIED  DUCT  SECTION. '\  PRINT  \  PRINT 
2070  IF  HCOPY»='N'  GOTO  2100 

2080  REM  Check  combined  shear  and  tension  stress 

2090  REM  Compute  the  maximum  bending  tensile  stress  in  the  web 

2100  FBT=.0015*WG*LSPANA2*(H+T(1)+T(3)-YY)/IBE 

2110  REM  Check  against  allowables 

2120  FLAG=0\  PRINT  \  PRINT  \  FOR  1=2  TO  4  STEP  2 

2130  IF  FBT <  =  ( . 825-.375*FVAVGINT/FVINT( I ) )*FYP  THEN  2160 

2140  FLAG=1\  PRINT  'THE  COMBINED  SHEAR  AND  TENSION  STRESS  IN  SIDE';I; 

2150  PRINT  'EXCEEDS  THE  ALLOWABLE'S  PRINT 
2160  NEXT  I\  IF  FLAG=0  GOTO  2350  ELSE  FLAG1=1 

2170  PRINT  \  PRINT  'YOU  MUST  INCREASE  THE  DUCT  SIDE  PLATE  THICKNESS! ES)  FOR 
2180  PRINT  'THE  SIDES(S)  NOTED  ABOVE'S  PRINT  'IN  ORDER  TO  ENSURE  THAT  THE  '; 
2190  PRINT  'ALLOWABLE  COMBINED  SHEAR  AND  TENSION  STRESS  IN  THE' 

2200  PRINT  'WEB(S)  IS  NOT  EXCEEDED'S  PRINT  S  PRINT 

2210  PRINT  'DO  YOU  WISH  TO  HANGE  EITHER  DUCT  SIDE  PLATE  THICKNESS?  (Y  OR  N) ' 

2220  INPUT  CW4G4*S  IF  CHNG4*='Y'  GOTO  200 

2230  PRINT  S  PRINT  S  PRINT  TAB ( 30) ; '*****  WARNING  *+***' 
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2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 
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2360 
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2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 
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2600 
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2620 
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2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 


PRINT  '  THIS  COMPLETES  THE  DUCT  SECTION  CHECK  PORTIION  OF  DESIGN.  '; 
PRINT  'HOWEVER,  Y0U'\  PRINT  '  ARE  WARNED  THAT  THE  COMBINED  SHEAR 
PRINT  'AND  TENSION  STRESS  IN  THE  DUCT  SIDE'X  PRINT  '  PANELS  EXCEEDS'; 
PRINT  '  THE  ALLOWABLE.  THE  PRESENT  DUCT  CONFIGURATION  SHOULD' 

PRINT  '  NOT  BE  USED.  RATHER,  THE  SIDE  PLATE  THICKNESS(ES)  NOTED  '; 
PRINT  'ABOVE  SHOULD'X  PRINT  '  BE  INCREASED  AND  THIS  PROGRAM  SHOULD'; 
PRINT  '  THEN  BE  REEXECUTED  TO  CHECK  THE'\  PRINT  '  MODIFIED  DUCT  '; 
PRINT  'SECTION. '\  PRINT  \  PRINT 
IF  HCOPY*='N'  GOTO  2350 

PRINT  CHR$(27)+' [?4i '\  PRINT  *1,CHR*(12)\  PRINT  CHR*(27)+' [?5i ' 

REM  Print  out  the  results 

PRINT  \  PRINT  \  PRINT  \  IF  FLAG1=0  GOTO  2390 

PRINT  'THE  DUCT  SECTION  SHOWN  BELOW  FAILS  ONE  OR  MORE  OF  THE  DUCT  SECT'; 
PRINT  'ION  DESIGN'X  PRINT  'CRITERIA  FOR  THE  REASON(S)  NOTED  IN  THE  IMMED' ; 
PRINT  ' IATELY  PRECEEDING  WWRNING(S) . '\  GOTO  2410 
PRINT  'ALL  OF  THE  DUCT  SECTION  DESIGN  CRITERIA  A'; 

PRINT  'RE  MET  FOR  THE  DUCT  SECTION'X  PRINT  'CONFIGURATION  SHOWN  BELOW' 
PRINT  \  PRINT 

PRINT  TA8(18) ; 'DUCT  WIDTH  (INTERIOR  DIMENSION) ;TAB(53) ;W; ' INCHES' 

PRINT  TAB(18) ;'DUCT  HEIGHT  (INTERIOR  DIMENSION) :' ;TAB(53) ;H; ' INCHES' 

PRINT  TAB(18) ; 'DUCT  CLEAR  SPAN: ' ;TAB(53) jLSPAN; 'FEET' 

PRINT  \  PRINT 

PRINT  TA8(31) ; 'SIDE  1' ;TAB(44) ; 'SIDE  2' ;TAB(57) ; 'SIDE  3' ;TAB(70) ; 'SIDE  4' 
PRINT 

PRINT  'PLATE  THICKNESS  (INCHES)*' ;TAB(31) ;T(1) ;TAB(44) ;T(2) ;TAB(57) ;T(3) ; 
PRINT  TAB(70) ;T(4)\  PRINT 

PRINT  'INTERIOR  PANEL  STIFFENER' ;TAB(32) ;SS(1) ;TAB(45) ;SS(2) ;TAB(58) ; 

PRINT  SS(3);TAB(71);SS(4)\  PRINT  '  SPACING  (INCHES)' 

PRINT  'END  PANEL  STIFFENER' ;TAB(32) ; SSE ( 1 ) ;TAB(45) ;SSE(2) ;TAB(58) ;SSE(3) ; 
PRINT  TAB(71) ;SSE(4)\  PRINT  '  SPACING  (INCHES)' 

PRINT  'NOMINAL  STIFFENER' ;TAB(32) ;WS(1) ;TAB(45) ;WS(2) ;TAB(58) ;WS(3) ; 

PRINT  TAB(71) ;WS(4)\  PRINT  '  WEIGHT  (PLF)'\  PRINT 

PRINT  '*  NOT  INCLUDING  CORROSION  ALLOWANCES  PRINT  \  PRINT 

PRINT  TABOO); 'CORNER  1' ;TAB( 43) ; 'CORNER  2' ;TAB(56) ; 'CORNER  3' ;TAB(69) ; 

PRINT  'CORNER  4'\  PRINT  \  PRINT  'CORNER  tf4GLE' ;TAB(31) ;LSEC*(1) ;TAB(44) ; 

PRINT  LSEC*(2) ;TAB(57) ;LSEC$(3) ;TAB(70) ;LSEC*(4)\  PRINT  \  PRINT  \  PRINT 

PRINT  'DO  YOU  WISH  TO  REEXECUTE  THIS  PROGRAM  (DUCT  SECTION  CHECKS)?  '; 

PRINT  '(Y  OR  N)'\  INPUT  REEX$\  PRINT  \  IF  REEX$='Y'  GOTO  190 

PRINT  'DO  YOU  WISH  TO  EXECUTE  THE  BEARING  STIFFENER  DESIGN  PROGRAM?'; 

PRINT  '  (Y  OR  N)'\  INPUT  BEARSTIFFVs  PRINT 

IF  BEARSTIFF»='N'  GOTO  2740 

FOR  1=1  TO  4\SS( I )=SSE( I )\  NEXT  I 

LET  C*=','\  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  #5 

PRINT  #5,SS(1) ;C$;SS(2) ;C$;SS(3) ;C$;SS(4)\  CLOSE  *5 

CLOSE  #1\  LET  10=0 

DIM  AL(IO),LX(IO),LY(IO),YL(IO),T(IO),IL(IO),SS(IO), SSE( 10) ,WS(I0) ,WA( 1 0 ) 
DIM  LSEC$( 10) ,FVEND( 10) ,FVINT(I0) 

PRINT  CHR*(27)+'[?4i'\  PRINT  'CCftlENCING  BEARING  STIFFENER  DESIGN;  '; 

PRINT  'CHAINING  TO  PROGRAM  DUCTS;  PLEASE  WAIT' 

RECALC=2\  CHAIN  'DUCT 5'  WITH  RECALC 

PRINT  \  PRINT  'THIS  CONCLUDES  THE  DUCTWORK  STRUCTURAL  DESIGN  PROGRAM' 

CLOSE  #1\  PRINT  CHR*(27)+'[?4i'\  END 

REM  EFFECTIVE  COMPRESSION  FLANGE  STRESS  SUBROUTINE 

I =0\F8E=10\FLAG=0 

REM  Calculate  reduced  effective  compression  flange  width 
8E=(253*T(1)/SQR(FBE) )*(l-50 .3/( (W-LX( 1)-LX( 2) )*SQR(FBE)/T(1 ) ) ) 
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2800  IF  BE>W-LX( 1 ) -LX( 2)  THEN  BE=W-LX(1)-LX(2) 

2810  REM  Calculate  the  location  of  the  effective  neutral  axis 
2820  A*(H+T(1)+T(3))*T(4) 

2830  B*(H+T<1)+T(3))*T(2) 

2840  C*(LX(1)+BE+LX(2))*T(1) 

2850  D*(T(4)+R+T(2))*T<3) 

2860  E*AL(1)*(T(1)+YL(1) ) 

2870  F*AL(2)*(T(1)+YL(2) ) 

2880  G*(T(1)+H+T(3) )*A/2 
2890  M*(T(1)+H+T(3) )*8/2 
2900  N*(T(1)+H+T(3)/2)*D 

2910  Q=AL(4)*<T(1)+H-YL<4))+AL(3)*<T(1)+H-YL(3)) 

2920  YY=( E+F+G+M+N+Q)/( A+B+C+D+AL( 1 )+AL( 2)+AL( 3)+AL( 4) ) 

2930  REM  Calculate  the  effective  moment  of  inertia  of  the  duct  section 
2940  IBE1=( (T(2)+T(4))*(T(1)+H+T(3) ) A3)/12 
2950  IBE2*(A+B)*(YY-(T(1)+H+T(3))/2)A2+C*(YY-T(1)/2)A2 
2960  IBE3*D*(T(l)+H+T(3)/2-YY) A2+IL(1)+IL(2)+IL( 3)+IL(4) 

2970  IBE4=AL(1)*(YY-T(1)-YL(1))A2+AL(2)*(YY-T(1)-YL(2))A2 
2980  IBE5=AL(3)*(T<1)+H-YL<3)-YY)A2+AL(4)*(TC1)+H-YL(4)-YY)A2 
2990  I BE* I BE1+ I BE2+ IBE3+IBE4+IBE5 

3000  REM  Compute  compression  flange  maximum  stress  based  on  the  reduced 
3010  REM  effective  compression  flange  width 
3020  FBE1=.0015*WG*LSPANA2*YY/IBE 
3030  1*1+1 

3040  IF  I >100  THEN  FLAG*1\  GOTO  3100 

3050  REM  Test  for  closeness  to  assumed  compression  flange  stress  value 

3060  IF  ABS(FBE-FBEl) < .005  THEN  GOTO  3100 

3070  IF  FBE>FBE1  THEN  GOTO  3090 

3080  FBE=ABS(FBEl+(FBEl-FBE)/2)\  GOTO  2790 

3090  FBE=ABS(FBEl-(FBE-FBEl)/2)\  GOTO  2790 

3100  RETURN 
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SET  NO  DOUBLE 

10  REM  PROGRAM  NAME:  DUCT8A 
20  REM 

30  REM  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  ENABLE  PROGRAM  DUCTS  TO  CHAIN  TO 
40  REM  PROGRAM  DUCT8 
SO  REM 

60  PROGRAM  DUCT 8A< RECALC) 

70  CWUN  'DUCT8'  WITH  RECALC 
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SET  NO  DOUBLE 

10  REM  PROGRAM  NtfME:  DUCT 8 
20  REM 

30  REM  THE  PURPOSE  OF  THIS  PR0GR/*1  IS  TO  SELECT  THE  BEARING  STIFFENERS 
40  REM 

50  PROGRAM  DUCT8( RECALC) 

60  LET  1 2*2\ 1 3=3\I 4=4\I 8=8\I 12=12\ 1 1 8=1 8\I 36=36\  DIM  SEC$( 1 4) ,AST< 14) ,FA< 14) 

70  DIM  WS(I4) , WELD* (14) , LBRC(I4) ,FB(I4,I3,I2) ,FBM(I4,I3,I2) ,LY(I4) ,PLANGLE( 13) 
80  DIM  DST< 14) ,Y1(I4),IE(I4),RE(I4),BF(I4),TF(I4) ,TW( 14) ,RT( 14) ,AE( 14) , IXS( 14) 
90  DIM  PVP( 14,12,12) ,FAM( 14, 12, 14) ,P(I4,I2,I4) ,DSA( 13) ,LFT( 14) ,T(I4),SS(I4) 

100  DIM  Wl( 14, 118) ,W2( 14, 136) ,W3(14,I12),M0(I4),A(I4,I4),B(I4,I8),D(I4),K1(I4) 
110  DIM  ANGDISP( 14) ,M( 14, 12) ,MMAXP0S( 14) ,MMAXNEG( 14) ,FAC( 14) ,FLAG( 14) ,PD( 14) 

120  DIM  QW( 14) ,QLR( 14) , BE( 14) ,WA( 14) ,FLAG1( 14) 

130  OPEN  'LP:'  FOR  OUTPUT  AS  FILE  #1\  OPEN  'DATA3'  FOR  INPUT  AS  FILE  #3 

140  OPEN  'DATA4'  FOR  INPUT  AS  FILE  #4\  OPEN  'DATA5'  FOR  INPUT  AS  FILE  *5 

150  INPUT  #3 , CLA , CQRR* , CRA , LSPAN , EP , FYP , SE I SZ 

160  INPUT  #3 , UWP , QDL , QLA , QLP , QLV , QS , QXP , QXV 

170  INPUT  #3,LFT(1) ,LFT(2) ,LFT(3) ,LFT(4) ,QLR(1) ,QLR(3) 

180  INPUT  *3,T(1),T(2),T(3),T(4),QW(1),QW(2),QW(3),QW(4) 

190  INPUT  #4,HC0PY*,QDI ,SHP,UWS,FYS,ES,QLRD,QLAD,WB 
200  INPUT  #4,LBRC(1),LBRC(2),LBRC(3),LBRC(4),WA(1),WA(2) 

210  INPUT  *4,WA(3) ,WA(4) , DSA(l) , DSA(2) , DSA(3) , LY(1) ,LY(2) 

220  INPUT  #4,LY(3),LY(4),WELD*(1),WELD*(2),WELD*(3),WELD*<4) 

230  INPUT  #5,SS(1) ,SS(2) ,SS(3) ,SS(4)\  CLOSE  #3, #4, #5 
240  OPEN  'DATA6'  FOR  INPUT  AS  FILE  #6 

250  FOR  1=1  TO  18\  INPUT  #6,W1(1 , I ) ,W1(2 , I ) ,W1 ( 3, I ) ,W1 (4, I )\  NEXT  I 

260  FOR  1=1  TO  36\  INPUT  *6,W2(1 , I ) ,W2(2, I ) ,W2( 3, I ) ,W2( 4 , I )\  NEXT  I 

270  FOR  1=1  TO  12\  INPUT  #6,W3<1 , I ) ,W3( 2, I ) ,W3(3, I ) ,W3( 4, I >\  NEXT  I\  CLOSE  *6 

280  DEF  FNTAN(RAO)=SIN(RAD)/COS(RAD) 

290  REM  Calculate  stiffener  axial  forces  due  to  internal  vacuums  and  pressures 
300  GOSUB  2760\  IF  RECALC=3  THEN  2360 
310  IF  HCOPY*='N'  GOTO  330 

320  PRINT  CHR*(27)+'[?4i'\  PRINT  *1,CHR*(12)\  PRINT  CHR*(27)+' [?5i ' 

330  AVAIL=0\  PRINT  \  PRINT  TAB( 27) {'BEARING  STIFFENER  DESIGNS  PRINT  \  PRINT 
340  IF  LFT(2)=LFT(4)  THEM  510 

350  PRINT  TABOO) j '***  PLEASE  NOTE  ***'\  PRINT  \  PRINT  'THE  LENGTH  OF  SIDE  2  '; 
360  PRINT  'IS  DIFFERENT  FROM  THE  LENGTH  OF  SIDE  4  FOR  THIS  DUCT  CROSS' 

370  PRINT  'SECTION.  IN  ORDER  TO  ENSURE  THAT  ADEQUATE  RIGID  FRAME  STIFFENERS'; 

380  PRINT  '  ARE  SELECTED, '\  PRINT  'THIS  SERIES  OF  PROGRAMS  (STARTING  WITH  '; 

390  PRINT  'PROGRAM  DUCT1)  SHOULD  BE  RUN  TWICE.  THE'N  PRINT  'FIRST  RUN  SHOULD'; 
400  PRINT  '  DESIGNATE  SIDE  2  AS  THE  LONGER  SIDE  AND  SIDE  4  AS  THE  SHORTER' 

410  PRINT  'SIDE.  THE  SECOND  RUN  SHOULD  DESIGNATE  SIDE  2  AS  THE  SHORTER  SIDE  '; 
420  PRINT  'AND  SIDE  4  AS'\  PRINT  'THE  LONGER  SIDE.  SIDE  1  REMAINS  THE  TOP  '; 

430  PRINT  'AND  SIDE  3  REMAINS  THE  BOTTOM  FOR  BOTH'N  PRINT  'RUNS.  THE  TWO  RU' ; 

440  PRINT  'NS  SHOULD  THEN  BE  COMPARED  STIFFENER  BY  STIFFENER,  AND  THE' 

450  PRINT  'HEAVIER  STIFFENER  SECTION  IN  EACH  CASE  SHOULD  BE  SELECTED  WHEN  '; 

460  PRINT  'RIGID  FRAME'S  PRINT  'STIFFENERS  ARE  DESIGNATED.  THIS  PROCEDURE'; 

470  PRINT  '  IS  REQUIRED  SINCE  THE  RIGID  FRAME'S  PRINT  'PROGRAM  ALWAYS  '; 

480  PRINT  'DESIGNATES  SIDE  4  AS  THE  WINDWARD  SIDE  OF  THE  DUCT.  IT  APPLIES' 

490  PRINT  'ONLY  TO  RIGID  FRAME  STIFFENER  DESIGN.  THIS  PROCEDURE  DOES  NOT  '; 

500  PRINT  'APPLY  TO  PINNED-'\  PRINT  'END  STIFFENER  DESKN.'S  PRINT  \  PRINT 
510  PRINT  'WrtVT  SHAPE  BEARING  STIFFENERS  DO  YOU  WISH  TO  USE?  (W  =  W  SHAPE,' 

520  PRINT  'WT  =  STRUCTURAL  TEE,  C  =  CHANNEL) '\  INPUT  SHP*\  PRINT 
530  IF  SHP*='W'  THEN  SHP=1  ELSE  SHP-0 
540  IF  SHP$='WT'  THEN  SHP=2 
550  IF  SHP$='C'  THEN  SHP=3 
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560  IF  SHP=0  THEN  510 

570  PRINT  'ENTER  A  TRIAL  NOMINAL  DEPTH  (IN  INCHES)  FOR  THE  STIFFENER  SECTIONS' 
580  PRINT  '(REMINDER:  STIFFENERS  ON  ALL  FOUR  SIDES  OF  THE  DUCT  ARE  DESIGNED 
590  PRINT  'TO  WWE  THE'\  PRINT  ' SAME  NOMINAL  DEPTH) '\  INPUT  TRIALNDX  PRINT 
600  REM  Test  to  insure  that  chosen  trial  nominal  depth  is  available 
610  ON  SHP  GOTO  620,660,710 

620  IF  TRIALND=6  OR  TRIALND=8  OR  TRIALND=10  THEN  AVAIL=1\  GOTO  740 
630  IF  TRIALND=12  OR  TRIALND=14  OR  TRIALND=16  THEN  AVAIL=1\  GOTO  740 

640  IF  TRIALND=18  OR  TRIALND=21  OR  TRIALND=24  THEN  AVAIL=1\  GOTO  740 

650  GOTO  740 

660  IF  TRIALND=3  OR  TRIALND=4  OR  TRIALND=5  THEN  AVAIL=1\  GOTO  740 

670  IF  TRIALND=6  OR  TRIALND=7  OR  TRIALND=8  THEN  AVAIL=1\  GOTO  740 

680  IF  TRIALND=9  OR  TRIALND=10.5  OR  TRIALND=12  THEN  AVAIL=1\  GOTO  740 
690  IF  TRIALND=13.5  OR  TRIALND=15  OR  TRIALND=16.5  THEN  AVAIL=1\  GOTO  740 
700  GOTO  740 

710  IF  TRIALND=6  OR  TRIALND=7  OR  TRIALND=8  THEN  AVAIL=1\  GOTO  740 
720  IF  TRIALND*9  OR  TRIALND=10  OR  TRIALND=12  THEN  AVAIL=1\  GOTO  740 
730  IF  TRIALND=15  THEN  AVAIL=1 
740  IF  AVAI L=1  GOTO  790 

750  PRINT  \  PRINT  'THE  TRIAL  NOMINAL  DEPTH  THAT  YOU  HAVE  CHOSEN  IS  NOT  '; 

760  PRINT  'AVAILABLE  IN  THIS  DESIGN'\  PRINT  'PROGRAM  FOR  THE  STIFFENER  '; 

770  PRINT  'SWPE  THAT  YOU  KAVE  SELECTED.  PLEASE  ENTER  A' 

780  PRINT  'DIFFERENT  TRIAL  NOMINAL  DEPTH. '\  GOTO  310 

790  IF  HCOPY*='N'  THEN  800  ELSE  PRINT  CHR*(27)+' [?4i ' 

800  PRINT  'RIGID  FRAME  BEARING  STIFFENERS  ARE  BEING  SELECTED.  THIS  PROCE' ; 

810  PRINT  'SS  MAY  TAKE'N  PRINT  'FROM  30  SECONDS  TO  TWO  HOURS.  THE  LOAD  CON'; 
820  PRINT  'DITION,  LOAD  CASE  f*iO  ST I FFENER'\  PRINT  'SECTION  PRINTOUTS  TO  THIS'; 
830  PRINT  '  SCREEN  (WHICH  WILL  COMMENCE  MOMENTARILY)  MAY  BE  DIS-' 

840  PRINT  'REGARDED.  THEY  ARE  PROVIDED  SIMPLY  TO  GIVE  YOU  SOME  IDEA  OF  THE 
850  PRINT  'STIFFENER'N  PRINT  'SELECTION  PROGRESS,  AND  TO  REASSURE  YOU  THAT 
860  PRINT  'THIS  PROGfWI  IS  NOT  'LOST".  THE'\  PRINT  'FINAL  STIFFENER  SECTION'; 
870  PRINT  '  SELECTION  WILL  BE  PRINTED  OUT  ON  THE  LINE  PRINTER  (IF' 

880  PRINT  'YOU  REQUESTED  A  HARD  COPY  OF  THE  STIFFENER  SELECTION  OUTPUT).  '; 

890  PRINT  'PLEASE  WAIT.'N  PRINT 

900  FOR  1=1  TO  4\SEC*( I ) ='*****'\WS( I )=0\FLAG1( I )=0\  NEXT  I 

910  MAXWT =Q\  ON  SHP  GOTO  920,930,940 

920  OPEN  'WSHAPE'  FOR  INPUT  AS  FILE  *10\  GOTO  960 

930  OPEN  'WT'  FOR  INPUT  AS  FILE  #10\  GOTO  960 

940  OPEN  'C'  FOR  INPUT  AS  FILE  *10 

950  REM  End  of  File  Check 

960  IF  MAXWT*1  THEN  CLOSE  *10\  GOTO  2480 

970  REM  Read  W,  WT,  or  Channel  shape  properties 

980  ON  SHP  GOTO  990,1000,1010 

990  GOSUB  2880\  GOTO  1020 

1000  GOSUB  2970\  GOTO  1020 

1010  GOSUB  3040 

1020  IF  NDSTOTRIALND  GOTO  980 

1030  REM  Check  to  see  if  section  is  heaviest  possible  section  for  that 

1040  REM  nominal  depth 

1050  IF  MAXND=TRIALND  THEN  MAXWT=1 

1060  FOR  1=1  TO  4\  IF  SEC*<  I )  O'*****'  THEN  1130 

1070  REM  Calculate  effective  section  properties 

1080  GOSUB  3120XAST ( I ) =AST\DST ( I ) =DST\BF ( I ) =BF\TF ( I )=TF\TW( I ) =TW 

1090  RT( I ) =RT\IXS( I ) =IXS\YS( I ) =YS 

1100  REM  Calculate  trial  stiffener  weights 

1110  WS ( I ) =AST*UWS/ 144 
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REM  Calculate  allowable  stiffener  axial  compressive  stresses 
GOSUB  3220\  NEXT  I 

REM  Calculate  stiffener  axial  load  and  stress  combinations 

GOSUB  3320 

FOR  LC0ND=1  TO  3 

ON  LCOND  GOTO  1180,1190,1200 
LCASE=18\  GOTO  1210 
LCASE=36\  GOTO  1210 
LCASE=12 
DIM  W(I4,LCASE) 

FOR  LC=1  TO  LCASE 

REM  Calculate  stiffener  fixed-end  moments 
FOR  1=1  TO  4\  ON  LCOND  GOTO  1250,1260,1270 
W(I ,LC)=W1(I ,LC)\  GOTO  1280 
W(I  ,LC)=W2<I ,LC)\  GOTO  1280 
W(I ,LC)=W3(I ,LC) 

M0( I )=W( I ,LC)*LFT ( I )A2/1000\  NEXT  I 

REM  Calculate  rigid  frame  stiffener  end  moments 

GOSUB  3580 

REM  Calculate  maximum  positive  and  negative  stiffener  moments  and 
REM  maximum  stiffener  and  plate  bending  stresses 

GOSUB  4080 

REM  Match  transverse  loading  cases  with  appropriate  axial  loading 
REM  combination 

ON  LCOND  GOTO  1370,1440,1540 

IF  LCOl  AND  LC<>2  AND  LC<>3  AND  LC<>4  THEN  1390 
FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,1)\  NEXT  I\  GOTO  1600 
IF  LC<>5  AND  LC<>7  AND  LC<>9  AND  LCOll  THEN  1410 
FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,2)\  NEXT  I\  GOTO  1600 
IF  LC<>6  AND  LC<>8  AND  LCO10  AND  LC<>12  THEN  1430 
FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,3)\  NEXT  I\  GOTO  1600 
FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,4)\  NEXT  I\  GOTO  1600 
IF  LC=1  OR  LC=2  OR  LC=3  OR  LC=4  GOTO  1460 
IF  LC<>5  ^0  LC<>6  AND  LC<>7  (WD  LC<>8  THEN  1470 
FOR  1=1  TO  4\FAC( I ) =FAM( I ,1 ,1 )\  NEXT  I\  GOTO  1600 
IF  LC=9  OR  LC=11  OR  LC=13  OR  LC=15  GOTO  1490 
IF  LC<>17  AND  LC<>19  AND  LC<>21  AND  LC<>23  THEN  1500 
FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,2)\  NEXT  I\  GOTO  1600 
IF  LC=10  OR  LC=12  OR  LC=14  OR  LC=16  GOTO  1520 
IF  LC<>18  AN D  LCO20  AND  LC<>22  AND  LC<>24  THEN  1530 
FOR  1=1  TO  4\FAC( I )=FAM( I ,1 ,3)\  NEXT  I\  GOTO  1600 
FOR  1=1  TO  4\FAC( I )=FAM( I , 1 , 4)\  NEXT  I\  GOTO  1600 
IF  LCOl  AND  LC<>2  AND  LC<>3  AND  LC<>4  THEN  1560 
FOR  1=1  TO  4\FAC( I )=FAM( I ,2,1)\  NEXT  I\  GOTO  1600 
IF  LC<>5  AND  LC<>7  AND  LC<>9  AND  LCOll  THEN  1580 
FOR  1=1  TO  4\FAC( I )=FAM( I ,2,2)\  NEXT  I\  GOTO  1600 
FOR  1=1  TO  4\FAC( I)=FAM(I ,2,3)\  NEXT  I 
REM  Calculate  allowable  stiffener  and  adj .  plate  bending  stresses 
FOR  1=1  TO  4\  IF  SEC$( I )=' FAILED'  OR  FLAG1(I)=1  THEN  1620 
GOSUB  4250 
NEXT  I 

REM  Check  interaction  formulas 

FOR  1=1  TO  4\FLAG( I ) =0\  IF  SEC*( I )=' FAILED'  OR  FLAG1(I)=1  THEN  1660 
GOSUB  4680 
NEXT  I 

FLAG1=1\FLAG2=0\  FOR  1=1  TO  4\  IF  FLAG(I)=1  THEN  SEC*( I )='FAILED' 
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1680  IF  SEC*(I)=' *★***'  THEN  FLA61=0 

1690  IF  SEC$( I )='*****'  OR  SEC$( I )=' FAILED'  THEN  FLAG2=1 

1700  NEXT  I\  IF  FLAG1=1  AND  FLAG2=1  THEN  1980 

1710  REM  Check  stiffener  deflections 

1720  REM  Calculate  stiffener  fixed-end  moments  (incl.  axial  forces) 

1730  FOR  1=1  TO  4\PD( I )=FAC( I )*AE( I )*1000\  IF  PD(I)<=0  THEN  1760 

1740  Kl( I ) =SQR(PD( I )/( 1000*ES*I E( I ) ) )\TERM1=6*K1( I )*LFT( I ) 

1750  M0( I )=W( I ,LC)*( 1-TERM1/FNTAN(TERM1) )/12000*Kl( I ) A2\  GOTO  1770 

1760  M0( I )=W( I , LC)*LFT( I )A 2/1 000 

1770  NEXT  I 

1780  REM  Calculate  stiffener  end  moments  (incl.  axial  forces) 

1790  GOSUB  3580 

1800  REM  Calculate  and  check  maximum  stiffener  and  plate  deflections 

1810  FOR  1=1  TO  4\  IF  SEC*( I )='FAILED'  OR  FLAG1(I)=1  THEN  1830 

1820  GOSUB  5120 

1830  NEXT  I 

1840  FLAG1=1\FLAG2=0\  FOR  1=1  TO  4\  IF  FLAG(I)=1  THEN  SEC*( I )=,FAILED/ 

1850  IF  SEC*( I )='*****'  THEN  FLAG1=0 

1860  IF  SEC*( I )='*****'  OR  SEC*( I )='FAILED'  THEN  FLAG2=1 

1870  NEXT  I\  IF  FLAG1=1  AND  FLAG2=1  THEN  1980 

1880  REM  Check  stiffener  moment  of  inertia  and  gross  area  requirements 

1890  REM  (vertical  stiffeners  only) 

1900  FOR  1=2  TO  4  STEP  2\  IF  SEC*( I )=' FAILED'  OR  FLAG1(I)=1  THEN  1920 

1910  G0SU8  5330 

1920  NEXT  I 

1930  FLAG1=1\FLAG2=0 

1940  FOR  1=1  TO  4\  IF  FLAG(I)=1  THEN  SEC*( I )='FAILED' 

1950  IF  SEC*( I )='*****'  THEN  FLAG1=0 

1960  IF  SEC*( I )='*****'  OR  SEC*( I )='FAILED'  THEN  FLAG2=1 

1970  NEXT  I\  IF  FLAG1=0  OR  FLAG2=0  THEN  1990 

1980  LC=LCASE\LC0ND=3 

1990  PRINT  'LOAD  CASE' ;LC,SECT$;TAB(29) ;SEC*(1) ;TAB(42) ;SEC*(2) ;TAB(55) j 

2000  PRINT  SEC*(3) ;TAB(68) )SEC*(4)\  NEXT  LC 

2010  PRINT  'LOAD  CONDITION' ;LCQND\  NEXT  LCOND 

2020  FLAG=0\  FOR  1=1  TO  4\  IF  SEC*( I )<> '★****'  GOTO  2040 

2030  SEC*(I)=SECT*\  GOTO  2070 

2040  IF  SEC*( I ) O' FAILED'  GOTO  2070 

2050  IF  RECALC=3  THEN  FLAG3=1 

2060  SEC*(I)='*****'\FLAG=1\  GOTO  2080 

2070  FLAGX I  )=1 

2080  NEXT  I\  IF  FLAG=1  GOTO  960 

2090  CLOSE  #10\  IF  RECALC=3  AND  FLAG3=0  THEN  2480 

2100  REM  Ensure  that  side  stiffeners  are  the  same  size  if  lengths  are  equal 
2110  IF  LFT(2) <>LFT(4)  OR  WS(2)=WS(4)  THEN  2200 
2120  IF  WS(2) <WS(4)  THEN  2160 

2130  SEC*(4)=SEC*(2)\AST(4)=AST(2)\DST(4)=DST(2)\BF(4)=BF(2)\TF(4)=TF(2) 

2140  TW( 4) =TW( 2)\RT ( 4) =RT ( 2)\IXS( 4)=I SX( 2)\WS( 4) =WS( 2)\AE( 4)=AE( 2) 

2150  Y1 ( 4) =Y1 ( 2)\I E( 4) =1 E( 2)\RE( 4) =RE( 2)\YS( 4) =YS( 2)\  GOTO  2200 

2160  SEC*( 2) =SEC$( 4)\AST (2) =AST ( 4)\DST ( 2) =DST ( 4)\BF ( 2) =BF ( 4)\TF ( 2) =TF (4) 

2170  TW( 2) =TW( 4)\RT ( 2)=RT (4)\IXS(2)=I SX( 4)\WS( 2) =WS( 4)\AE( 2) =AE( 4) 

2180  Y1 ( 2) =Y1( 4)\I E(2) =1 E( 4)\RE( 2) =RE( 4)\YS( 2) =YS( 4) 

2190  REM  Recalculate  transverse  loads  using  actual  stiffener  weights 
2200  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  *5 

2210  C*=' ,'\  PRINT  *S,SS(1) ;C*;SS<2) ;C*;SS(3) ;C*;SS(4)\  CLOSE  #5 

2220  OPEN  'DATA7'  FOR  OUTPUT  AS  FILE  *7 

2230  PRINT  #7,WS(1) jC*;WS(2) ;C* ;NS( 3) ;C*;WS(4)\  CLOSE  #7 
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2240  OPEN  'DATA8'  FOR  OUTPUT  AS  FILE  #8 

2250  FOR  1=1  TO  4\  PRINT  #8,SEC*< I ) ;Cf;AST ( I ) ;C$ ;DST ( I ) ;C*;BF( I ) ;C*;TF(I ) 

2260  PRINT  *8,TW(I);C*sRT(I);C*;IXS(I);C*;AE<I);Ci;IE<I) ;C*;RE( I ) ;C*;Y1( I ) 

2270  PRINT  *8 ,YS( I )\NEXT  I\  PRINT  *8 ,TRIALND\  CLOSE  #8\10=0\  DIM  FLAGl(IO) 

2280  DIM  SEC$( 10) ,AST( 10) ,FA( 10) ,WA( 10) ,QW( 10) ,QLR( 10) ,BE(I0),WS(I0),Y1(I0) 

2290  DIM  WELD*(IO),LBRC<IO),FB(IO,IO,IO) ,FBM( 10,10 , 10) ,LY( 10) ,PLANGLE( 10) 

2300  DIM  DST( IQ ) , I E( 1 0) , RE( 1 0 ) , BF( 10) ,TF( I Q) ,TW( 10) , RT( 1 0 ) ,AE( 1 0 ) , IXS( 10) 

2310  DIM  Wl( 10 , 10) ,W2( 10 , 10) ,W3( 10 , 10) ,M0( 10) ,A( 10 , 10) ,B( 10 , 10) ,D( 1 0) ,K1(I0) 
2320  DIM  ANGDISP(IO) ,M(  10 , 10)  ,rt-IAXPQS(  10) ,MMAXNEG(IO) ,FAC(IO) ,FLAG(I0) ,PD(IO) 
2330  PRINT  \  PRINT  'CHAINING  TO  DUCT5  TO  RECALCULATE  TRANSVERSE  LOADS  BASED  ON' 
2340  PRINT  'ACTUAL  STIFFENER  WEIGHTS;  PLEASE  WAIT' 

2350  CLOSE  #1\RECALC=3\  CHAIN  'DUCT 5'  WITH  RECALC 

2360  OPEN  'DATA7'  FOR  INPUT  AS  FILE  #A  OPEN  ' DATA8'  FOR  INPUT  AS  FILE  #8 

2370  INPUT  #7,WS(1) ,WS(2) ,WS(3) ,WS(4)\  CLOSE  *7 

2380  FOR  1=1  TO  4\  INPUT  *8, SEC*( I ) ,AST( I ) , DST( I ) ,BF( I ) ,TF( I ) 

2390  INPUT  *8,TW( I ) , RT( I ) , IXS( I ) ,AE(I) ,IE( I) ,RE(I) ,Y1(I)\  INPUT  #8,YS(I) 

2400  NEXT  I\  INPUT  ♦8,TRIALND\  CLOSE  *8 

2410  MAXWT=0\  ON  SHP  GOTO  2420,2430,2440 

2420  OPEN  'WSHAPE'  FOR  INPUT  AS  FILE  #10\  GOTO  2460 

2430  OPEN  'WT'  FOR  INPUT  AS  FILE  #10\  GOTO  2460 

2440  OPEN  'C'  FOR  INPUT  AS  FILE  #10 

2450  REM  Recalculate  allowable  stiffener  axial  compressive  stresses 
2460  FOR  1=1  TO  4\  GOSUB  3220\FLAG1 ( I ) =0\  NEXT  I 
2470  FLAG3=0\  GOTO  1150 

2480  IF  HCOPY*='Y'  THEN  PRINT  CHR*( 27)+' [ ?5i ' 

2490  PRINT  \  PRINT  TAB( 34) ; ' RI GI D  FRAME  BEARING  STIFFENERS'X  PRINT 

2500  PRINT  TAB(23) j'SIDE  1 ' ;TAB( 38) ; ' SI DE  2' ;TAB(53) ; 'SIDE  3' ;TAB(68) ; 'SIDE  4' 

2510  PRINT  \  PRINT  'STIFFENER  SECTION' ;TAB(21) ; 

2520  FOR  1=1  TO  4\  PRINT  USING  1 'CCCCCCCCCCC  \SEC*(I);\  NEXT  I 
2530  PRINT  \  PRINT  \  PRINT 

2540  FLAG=0\  FOR  1=1  TO  4\  IF  SEC*( I )='*****'  THEN  FLAG=1 
2550  NEXT  I\  IF  FLAG=0  GOTO  2600 

2560  PRINT  'NOTE:  •**★**■  INDICATES  THAT  AN  ADEQUATE  RIGID  FRAME  BEARING  ST'; 
2570  PRINT  'IFFENER  WITH'N  PRINT  TAB(6) jTRIALND; ' INCH  NOMINAL  DEPTH  DOES  NOT 
2580  PRINT  'EXIST.  YOU  MUST  SELECT  STIFFENER'S  PRINT  TAB( 7) ; ' SECTI ONS  WITH 
2590  PRINT  'A  GREATER  NOMINAL  DEPTH. '\  PRINT  \  PRINT 

2600  PRINT  'DO  YOU  WISH  TO  SELECT  RIGID  FRAME  BEARING  STIFFENERS  WITH  A  '; 

2610  PRINT  'DIFFERENT'S  PRINT  'NOMINAL  DEPTH?  (Y  OR  N)' 

2620  INPUT  DIFF$\  PRINT  \  PRINT 

2630  IF  DIFF#='Y'  THEN  RECALC=2\  GOTO  310 

2640  C*=','S  OPEN  'DATA5'  FOR  OUTPUT  AS  FILE  *5 

2650  PRINT  *5,SS(1) ;C#;SS(2) ;C$;SS(3) ;C$;SS(4)S  CLOSE  #5\I0=0\  DIM  FLAGl(IO) 
2660  DIM  SEC#( 10) ,AST(I0) ,FA( 10) , QW( 10) , QLR( 10) , BE( 10) ,WA( 1 0) ,WS( 1 0) ,DST (10) 
2670  DIM  WELD*( 10) ,LBRC(I0) ,FB( 10,10,10) ,FBM( 10 , 10,10) ,LY(I0) ,PLANGLE( 10) 

2680  DIM  Yl( 1 0) , IE< 10) ,RE( 1 0 ) , BF C 1 0 ) , TF < 1 0 ) ,TW( 1 0 ) , RT ( 1 0 ) , AE ( 1 0 ) , I XS ( 1 0 ) 

2690  DIM  PVP (10,10,10), FAM (10,10,10) ,P( 10 , 1 0 , 1 0 ) , DSA( 10) ,LFT ( 10 ) ,T( 10) , SS( 10 ) 
2700  DIM  Wl(IO.IO) ,W2( 10,10) ,W3( 10,10) ,MO( 10) ,A( 10 , 10) ,B( 10 , 10) ,D( 10) , K1 ( 1 0 ) 
2710  DIM  ANGDISP(IO) ,M( 10,10) ,MMAXPOS( 10) ,MMAXNEG( 1 0) ,FAC( 10 ) ,FLAG( 1 0) , PD( 10 ) 
2720  PRINT  \  PRINT  \  PRINT  'THIS  CONCLUDES  THE  DUCTWORK  STRUCTURAL  DESIGN  '; 
2730  PRINT  'PROGRAM' 

2740  PRINT  CHR*(27)+'[?4i 'S  CLOSE  #1\  END 

2750  REM  AXIAL  FORCE  DUE  TO  INTERNAL  VACUUM  OR  PRESSURE 

2760  FOR  1=1  TO  4 

2770  ON  I  GOTO  2780,2820,2780,2820 

2780  PVP( I ,1 ,1)=QLV*SS( I )*( LFT( 2)+LFT(4) )/48 

2790  PVP( I ,2,1)=QXV*SS( I )*( LFT( 2)+LFT (4))/48 
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2800  PVP( I ,1 ,2)=-QLP*SS( I )*(LFT(2)+LFT(4) )/48 

2810  PVP(I,2,2)=-QXP*SS(I)*(LFT(2)+LFT(4))/48\  GOTO  2860 

2820  PVP(I ,l,l)=QLV*SS(I)*(LFT(l)+LFT(3))/48 

2830  PVP(I,2,l)=QXV*SS(I)*(LFTa)+LFT<3))/48 

2840  PVP(I ,l,2)=-QLP*SS(I)*(LFT(l)+LFT(3))/48 

2850  PVP(I ,2,2)=-QXP*SS(I)*(LFT(l)+LFT(3))/48 

2860  NEXT  I\  RETURN 

2870  REM  N  SfttPE  PROPERTY  RETRIEVAL  SUBROUTINE 
2880  LINPUT  *10  ,HSHAPE1*\  LINPUT  *10,WSHAPE2$ 

2890  LINPUT  *10  ,WStt*PE3*\  LINPUT  *10,WSWiPE4* 

2900  SECT*=MID*(WSmPEl*)l«,7J4)XAST=VAL(MID*(WSHAPEl*,157.,6%)) 

2910  DST=VAL(MI D*(WSHAPE1* , 29% , 5%) ) \NDST=VAL(MI D*(WSHAPE1* , 42% , 2%) ) 

2920  MAXND=VAL(MID*(WSHAPE1*,53%,2%))\TW=VAL(MID*(WSHAPE1$,56%,4%)) 

2930  BF=VAL(MI D*(WSHAPE1* , 68% , 5%) )\TF=VAL(MI D*( WSHAPE2* , 6% , 5%) ) 

2940  RT=VAL(MI  D*(WSWPE2* ,  45% ,  4%)  )\IXS=VAL(MI D$(WSHAPE2* ,  54% ,  7%) ) 

2950  YS=DST/2\  RETURN 

2960  REM  WT  PROPERTY  RETRIEVAL  SUBROUTINE 

2970  LINPUT  *10,WT1*\  LINPUT  *10,WT2*\  LINPUT  *10,WT3*\SECT*=MID*(WT11>,1%,12%) 
2980  AST=VAL(MID*(WT1$ , 1 8% , 5% ) )\DST=VAL(MI D*(WT1* ,31% ,5%) ) 

2990  NDST=VAL(MI D*(WT1* , 44%, 4%) )\MAXND=VAL(MI D»(WT1* ,53%,4%) ) 

3000  TW=VAL(MID*(WT1$,58%,4%) )\BF=VAL(MID*(WTlf ,70%,5%) ) 

3010  TF=VAL(MID*(WT2*,6%,5%) )\RT=VAL(MID*(WT2*,45%,4%) ) 

3020  IXS=VAL(MID*(WT2*,56%,6%))\YS=VAL(MIC*(WT3*,19%,5%))\  RETURN 
3030  REM  CHAM4EL  PROPERTY  RETRIEVAL  SUBROUTINE 
3040  LINPUT  #10,C1*\  LINPUT  #10,C2*\  LINPUT  *10, C3* 

3050  SECT*=MID*( Cl* , 1% , 8%)\AST  =VAL(MI D*( Cl*, 1B% , 5%) ) 

3060  DST=VAL(MID*( Cl*, 31%, 5%) )\NDST=VAL(MI D*(C1* , 31% ,2%) ) 

3070  MAXND=VAL ( M I D*  ( Cl* ,  41% ,  2% ) ) \TW=VAL (MI D*(C1* ,46% ,4%) ) 

3080  BF=VAL(MID*(C1* ,58%,5%)  )\TF=VAL(MI D*( Cl*, 72%,  4%) ) 

3090  IXS=VAL(MID*(C2*,56%,6%) )\YS*DST/2\  RETURN 

3100  REM  STIFFENER  EFFECTIVE  SECTION  PROPERTIES  SUBROUTINE 

3110  REM  Determine  the  effective  plate  width,  BECI) 

3120  8E( I ) =12*T ( I ) 

3130  REM  Determine  area  of  combined  stiffener  and  effective  plate,  AE(I) 

3140  AE( I ) =AST+BE( I )*T( I ) 

3150  REM  Determine  the  distance  to  the  effective  centroidal  axis,  Y1(I) 

3160  Yl( I )=(AST*YS+BE( I )*T( I )*(DST+T( I )/2) )/AE( I ) 

3170  REM  Determine  the  effective  moment  of  inertia,  IE(I) 

3180  IE( I )=IXS+AST*(Y1( I ) -YS) A2+BE( I )*T( I )*(T( I ) A2/12+(DST+T ( I )/2-Yl ( I ) ) A2) 
3190  REM  Determine  the  effective  radius  of  gyration,  RE(I) 

3200  RE( I )=SQR( IE( I )/AE( I ) )\  RETURN 

3210  REM  ALLOWABLE  AXIAL  COMPRESSIVE  STRESS  SUBROUTINE 
3220  CC=SQR(2*PIA2*ES/FYS) 

3230  IF  14.4*LFT( I )/RE( I ) >CC  GOTO  3290 

3240  IF  SHP=3  THEN  IF  BF( I )/TF(I ) >95/SQR( FYS)  THEN  3290  ELSE  3260 

3250  IF  BF( I )/( 2+TF ( I ) ) >95/SQR( FYS)  GOTO  3290 

3260  TERM1=( l-( ( 14 . 4*LFT< I )/RE( I ) ) A2)/( 2*CCA2) )*FYS 

3270  TERM2=5/3+5 . 4*LFT ( I )/( RE( I )*CC) -373 . 25*( LFT ( I )/RE( I ) ) A3/CCA3 

3280  FA( I ) =TERM1/TERM2\  GOTO  3300 

3290  FA( I )=PI A2*ES/( 397. 44*(LFT( I )/RE( I ) ) A2) 

3300  RETURN 

3310  REM  RIGID  FRAME  STIFFENER  AXIAL  FORCE  AND  AXIAL  STRESS  SUBROUTINE 

3320  IF  CORR*='N'  THEN  3350 

3330  FOR  1=1  TO  4\T( I )=T( I )+CRA\  NEXT  I 

3340  REM  Axial  Force  due  to  Tension  Field  Action 

3350  TERM1=(T ( 1 )*LFT (1 )+T ( 2)*LFT ( 2)+T( 3)*LFT ( 3)+T ( 4)*LFT (4) )*UWP/12 
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3360  TERM2=( QDI+QDL)*( LFT ( 1 )+LFT ( 2)+LFT ( 3)+LFT ( 4) ) 

3370  TERM3=(WS(1)*LFT(1)/SS(1)+WS(2)*LFT(2)/SS(2))*12 
3380  TERM4=(WS(3)*LFT(3)/SS(3)+WS(4)*LFT(4)/SS(4))*12 
3390  IF  QLRD>QS  THEN  TERM5=QLRD*LFT ( 1 )  ELSE  TERM5=QS*LFT( 1 ) 

3400  TERM6=QLAD*LFT ( 3)+WA( 1 ) +WA ( 2 ) +WA ( 3)+WA( 4) 

3410  WG=TERMl+TERM2+TERM3+TERM4+TERM5+TERM6\PS=(WG*LSPAN+WB)/4 

3420  REN  Calculate  Axial  Load  Combinations 

3430  FOR  J=1  TO  2\P( 1 , J ,1 ) =PVP(1 , J , 1)\P( 2, J , 1) =PVP( 2 , J, 1)+PS 

3440  P(3,J,1)=PVP(3,J,1)\P(4,J,1)=PVP(4,J,1)+PS 

3450  P(1 , J , 2) =PVP( 1 , J , 2)\P< 2 , J , 2) =PVP( 2 , J , 2) 

3460  P(3, J,2)=PVP(3, J,2)\P(4,J,2)=PVP(4, J,2) 

3470  P(1 , J,3)=PVP(1 ,J,2)\P(2,J,3)=PS 

3480  P(3,J,3)=PVP(3,J,2)\P(4,J,3)=PS 

3490  P( 1 , J , 4) =0\P( 2 , J , 4) =PS\P( 3 , J , 4) =Q\P( 4 , J ,4) =PS\  NEXT  J 

3500  REM  Calculate  Axial  Stress  Combinations 

3510  FOR  1=1  TO  4\  FOR  J=1  TO  2\  FOR  K=1  TO  4 

3520  FAM(I ,J,K)=P(I , J , K)/(AE( I )*1000 )\  NEXT  K\  NEXT  J\  NEXT  I 

3530  IF  CORR*='N'  GOTO  3550 

3540  FOR  1=1  TO  4\T ( I ) =T( I ) -CRA\  NEXT  I 

3550  RETURN 

3560  REM  RIGID  FRAME  STIFFENER  END  MOMENT  SUBROUTINE 
3570  REM  Fill  Matrix  A,  the  coefficient  matrix 

3580  A( 1 , 1 ) =2*( I E( 4)/LFT (4)+IE(l )/LFT (1))\A(1,2)=IE(1 )/LFT (1)\A(1,3)=0 
3590  A(1 I4)=IE(4)/LFT(4)\A(2,1)=IE(1)/LFT(1) 

3600  A( 2 , 2) =2*( I E( 1)/LFT ( 1 )+I E(2)/LFT ( 2) )\A( 2 , 3) =1 E( 2)/LFT ( 2)\A( 2 , 4) =0 
3610  A( 3 , 1 )=0\A( 3 , 2) =IE(2)/LFT (2)\A( 3 , 3) =2*( I E(2)/LFT ( 2)+I E( 3) /LFT ( 3) ) 

3620  A( 3 , 4)=I E( 3)/LFT (3)\A(4,1)=IE( 4) /LFT (4)\A(4,2)=0 

3630  A( 4 , 3) =IE( 3)/LFT ( 3)\A( 4, 4) =2*( I E( 3)/LFT ( 3)+IE( 4)/LFT ( 4) ) 

3640  REM  Fill  Vector  D,  the  constant  vector 
3650  D( 1 ) =6*(M0(1 ) -M0( 4) )/ES\D( 2)=6*(M0 ( 2) -M0(1 ) )/ES 
3660  D( 3) =6*(M0( 3) -M0( 2) )/ES\D(4)=6*(M0( 4) -M0( 3) )/ES 
3670  REM  Go  to  inversion  subroutine  to  find  *A"  Inverse 
3680  GOSUB  3840 

3690  REM  Multiply  A  inverse  by  Vector  D  to  find  corner  angular  displacements 
3700  FOR  1=1  TO  4\ANGDI SP( I ) =0 

3710  FOR  K=1  TO  4\ANGDISP( I )=ANGDISP( I )+B( I ,K)*D(K)\  NEXT  K\  NEXT  I 
3720  REM  Plug  into  slope-deflection  equations  to  get  stiffener  end  moments 
3730  M( 1 , 1 ) =-M0 ( 1 )+ES* I E( 1 )*( 2+ANGDI SP( 1 )+ANGDI SP( 2) )/( 6*LFT ( 1 ) ) 

3740  M( 1 , 2) =M0( 1 )+ES*IE( 1 )*( 2*ANGDI SP( 2)+ANGDI SP( 1 ) )/( 6*LFT ( 1 ) ) 

3750  M( 2 , 1 ) =-M0( 2)+ES*I E( 2)*( 2*ANGDI SP( 2)+ANGDI SP( 3) )/( 6*LFT ( 2) ) 

3760  M( 2 ,2) =M0(2)+ES*IE( 2)*( 2*ANGDI SP( 3)+ANGDISP( 2) )/( 6*LFT ( 2) ) 

3770  M( 3 , 1 ) =-M0(3)+ES*I E( 3)*( 2+ANGDI SP( 3)+ANGDI SP( 4) )/(6*LFT ( 3) ) 

3780  M( 3 ,2) =M0( 3)+ES*I E( 3)*( 2*ANGDI SP( 4)+ANGDI SP( 3) )/( 6*LFT ( 3) ) 

3790  M( 4 , 1 ) =-M0(4)+ES*IE(4)*( 2*ANGDI SP( 4)+ANGDI SP( 1 ) )/( 6*LFT ( 4) ) 

3800  M( 4 , 2) =M0( 4)+ES*IE( 4)*( 2*ANGDI SP( 1 )+ANGDI SP( 4) )/( 6*LFT ( 4) )\  RETURN 
3810  REM  I^TRIX  IhWERSION  SUBROUTINE 

3820  REM  Gauss-Jordan  Elimination  (Matrix  A  is  input,  Matrix  B  is  output) 
3830  REM  First,  create  Matrix  B,  with  A  on  the  left  and  I  on  the  right 
3340  FOR  1=1  TO  4\  FOR  J=1  TO  4\B( I , J+4)=0\B( I  ,  J)=A( I , J)\  NEXT  J 
3850  B( I , I+4)=l\  NEXT  I 

3860  REM  Perform  row  oriented  operations  to  convert  the  left  hand  side  of  B 
3870  REM  to  the  identity  matrix.  The  inverse  of  A  will  then  be  on  the  right. 
3880  FOR  K=1  TO  4 

3890  IF  K=4  THEN  3960  ELSE  M%=K 
3900  REM  Find  maximum  element 

3910  FOR  I =K+1  TO  4\  IF  ABS(B( I ,K) ) >ABS(B(M%,K) )  THEN  M%=I 
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3920  NEXT  I 

3930  IF  MJi=K  GOTO  3960 

3940  FOR  J=K  TO  8/B=B(K, J)\B(K, J)=B(M%, J)\B(MB, J)=B\  NEXT  J 
3950  REN  Divide  Row  K 

3960  FOR  J=K+1  TO  8\B(K, J)*B(K, J)/B(K,K)\  NEXT  J 

3970  IF  K=1  GOTO  4010 

3980  FOR  1*1  TO  K-l\  FOR  J=K+1  TO  8\B( I , J)=B( I , J ) — B ( I ,K)*B(K, J)\  NEXT  J 

3990  NEXT  I 

4000  IF  K=4  GOTO  4030 

4010  FOR  I =K+1  TO  4\  FOR  J=K+1  TO  8\B( I , J)=B( I , J)-B( I ,K)*B(K, J)\  NEXT  J 
4020  NEXT  I 

4030  NEXT  K 

4040  REN  Retrieve  inverse  from  the  right  side  of  Matrix  B 
4050  FOR  1=1  TO  4\  FOR  J=1  TO  4\B( I , J)=B( I , J+4)\  NEXT  J\  NEXT  I\  RETURN 
4060  REN  MAXIMUM  STIFFENER  MOMENT  AND  BENDING  STRESS  SUBROUTINE 
4070  REM  Calculate  maximum  positive  and  negative  stiffener  moments 
4080  FOR  1*1  TO  4 

4090  IF  M(I,1)<0  THEN  f*MAXNEG(  I  )=M(  1,1)  ELSE  MMAXNEG(I)*0 

4100  IF  M( I ,1) >0  THEN  MMAXP0S( I )=M( I ,1)  ELSE  MMAXPOS(I)=0 

4110  FOR  X=.5  TO  LFT(I)  STEP  .5 

4120  MX1=M( I ,1)+(3*W( I ,LC)*LFT( I )/500-(M( I ,1)+M( I ,2) )/LFT( I ) )*X 

4130  MX=MX1-3*W(I ,LC)*XA2/500 

4140  IF  MX<MMAXNEG( I )  THEN  hMAXNEG( I ) =MX 

4150  IF  MX>MMAXPOS( I )  THEN  HMAXPOS( I )=MX 

4160  NEXT  X\  NEXT  I 

4170  REM  Calculate  maximum  bending  stresses 

4180  FOR  1*1  TO  4\FBM( I f 1 , l)=MNAXPOS( I )*(DST ( I )-Yl (I))/IE(I) 

4190  FBM(I,2,l)=ft1AXP0S(I)*Yl(I)/IE(I) 

4200  FBM(I,3,1)=«1AXP0SU)*<DST(I)+T(I)-Y1(I))/IE(I). 

4210  FBM( I |1 ,2) =ffiAXNEG( I )*Y1( I )/IE( I ) 

4220  FBM(  1 ,2,2)=t>t1AXNEG(  I  )*(DST(  I  )-Yl(  I )  )/IE(  I ) 

4230  FBM( I i 3, 2) =M1AXNEG( I )*(DST ( I )+T( I )-Yl (I))/IE(I)\  NEXT  I\  RETURN 
4240  REM  ALLOWABLE  BENDING  STRESS  SUBROUTINE 
4250  IF  LBRC( I )/12<LFT ( I )  THEN  4320 

4260  IF  ABS(MMAXNEG( I ) ) >ABS(M( I ,1) )  AND  ABS(MMAXNEG( I ) ) >ABS(M( I ,2) )  THEN  4320 
4270  IF  hMAXPOS( I ) >ABS(M( 1,1))  tf4D  MMAXPOS( I ) >ABS(M( I ,2) )  THEN  4320 
4280  IF  ABS(M( 1,1)) <ABS(M( 1,2))  THEN  MRATI 0=M( I , 1)/M( I ,2)\  GOTO  4300 
4290  MRATI 0=M( I ,2)/M( I , 1 ) 

4300  CB=1.75+1.05*MRATIO+.3*MRATI0A2\  IF  CB>2.3  THEN  CB=2.3 
4310  GOTO  4330 
4320  CB=1 

4330  IF  SHP*3  GOTO  4590 
4340  REM  W  and  WT  Shapes 
4350  REM  Positive  Moments 
4360  IF  WELD* ( I )  O'C'  GOTO  4470 
4370  IF  FAC( I )/FYS> .16  GOTO  4390 

4380  IF  DST ( I )/TW( I ) >(640/SQR(FYS) )*( 1-3. 74*FAC( I )/FYS)  THEN  4470  ELSE  4400 
4390  IF  DST( I )/TW( I ) >257/SQR(FYS)  THEN  4470 
4400  IF  LBRC( I ) >76/SQR(FYS)  GOTO  4470 

4410  IF  LBRC( I ) >20G00*TF( I )*BF( I )/( (DST( I )+T( I ) )*FYS)  GOTO  4470 
4420  IF  BF( I )/(2*TF( I ) ) >=95/SQR(FYS)  GOTO  4470 
4430  IF  8F( I )/(2*TF( I ) ) >65/SQR(FYS)  GOTO  4450 

4440  FB( I , 1 , 1 ) * . 66*FYS\FB( I ,2,1)=. 66*FYS\F8( 1,3,1)=. 66*FYP\  GOTO  4560 
4450  FB( I ,1 ,1)=FYS*( .79-.002*BF( I )*SQR(FYS)/(2*TF( I ) ) )\FB( I ,2,1)*FB( 1,1,1) 
4460  FB( I ,3,1 )=FB( I ,1 ,1)*FYP/FYS\  GOTO  4560 
4470  FB( I , 1 , 1 ) * . 6*FYS\FB( I ,3,1)*. 6*FYP 
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IF  BF( I )/(2*TF( I ) ) >95/SQR(FYS)  THEN  FB( I ,2,1)=.001\  GOTO  4560 

IF  LBRC( I ) <=76*BF( I )/SQR(FYS)  THEN  FB( I ,2,1)=.6*FYS\  GOTO  4560 

IF  LBRC( I ) >SQR(510000*CB/FYS)*RT( I )  GOTO  4530 

FB( 1 ,2,l)=(2/3-FYS*(L8RC( I )/RT < I ) ) A2/( .153E+07*CB) )*FYS 

IF  FB( I ,2,1) > .6*FYS  THEN  FB( I ,2,1)=.6*FYS\  GOTO  4560 

FB( I ,2,1)=170000*CB/(LBRC( I )/RT( I ) ) A2 

IF  FB( I ,2,1) > .6*FYS  THEN  FB( I ,2,1)=.6*FYS 

REM  Negative  Moments 

FB( I ,1 ,2)=.6*FYS\FB( I ,2,2)= .6*FYS\FB( I ,3,2)=. 6*FYP\  GOTO  4660 

REM  Channels 

REM  Positive  Moments 

FB( I ,  1 ,1)  =  .6*FYS\FB( I ,3,1)=.6*FYP 

IF  BF( I )/TF( I ) >95/SQR(FYS)  THEN  FB( I , 2 ,1 )= . 001\  GOTO  4650 
IF  L8RC( I ) <=76*BF( I )/SQR(FYS)  THEN  FB( I , 2,1)=.6*FYS\  GOTO  4650 
FB( I ,2,1 ) =12000*CB*( BF( I )*TF( I ) )/(LBRC( I )*( DST( I )+T( I ) ) ) 

IF  FB( I ,2,1) > .6*FYS  THEN  FB( I ,2,1)=.6*FYS 
REM  Negative  Moments 

FB(I ,1,2)=. 6*FYS\FB(I ,2,2)=. 6*FYS\FB( 1,3,2)=. 6*FYP 
RETURN 

REM  INTERACTION  FORMULAS  SUBROUTINE 
FE=PIA2*ES*IE( I )/(397.44*LFT< I ) A2*AE< I ) ) 

ON  LCOND  GOTO  4700,4730,4760 

FA=FA( I )\FBSCP=FB( 1,2,1 )\FBSCN=FB( I , 2 , 2)\CFYS= . 6*FYS\CFYP= . 6*FYP 
FBSTP=FB( 1,1, 1 )\F8STN=FB( I , 1 , 2)\FBPP=FB( 1,3, 1 )\FBPN=FB( 1,3,2) 

GOTO  4800 

FA=4*FA( I )/3\FBSCP=4*FB( 1,2, 1 )/3\FBSCN=4*FB( I , 2 , 2)/3\CFYS= . 8*FYS 
FE=4*FE/3\CFYP= . 8*FYP\F8STP=4*FB( 1,1, 1 )/3\FBSTN=4*FB( I ,1 ,2)/3 
FBPP=4*FB( I , 3,1)/3\FBPN=4*FB( I ,3,2)/3\  GOTO  4800 
FA=5*FA( I )/3\FBSCP=5*FB( I ,2,l)/3\  IF  FBSCP>FYS  THEN  FBSCP=FYS 
CFYS=FYS\FBSCN=5*FB( I ,2,2)/3\  IF  FBSCN>FYS  THEN  FBSCN=FYS 
FE=23*FE/12\CFYP=FYP\FBSTP=5*FB( I ,1 ,l)/3\  IF  FBSTP>FYS  THEN  FBSTP=FYS 
FBPP=FYP\FBPN=FYP\FBSTN=5*FB( I ,1 ,2)/3\  IF  FBSTN>FYS  THEN  FBSTN=FYS 
IF  FAC( I ) <=0  GOTO  5010 

REM  Simultaneous  Axial  Compression  and  Transverse  Loading 

IF  FAC( I )/FA> .15  GOTO  4870 

REM  Negligible  Axial  Stress 

IF  FAC( I)/FA+FBM( I ,2,1)/FBSCP>1  THEN  5080 

IF  FAC( I )/FA+ABS(FBM( I ,2,2) )/FBSCN>l  THEN  5080  ELSE  4970 

REM  Significant  Axial  Stress 

IF  FAC( I )/FA+ .85*FBM( I , 2, 1 )/( ( 1-FAC( I )/FE)*FBSCP) >1  GOTO  5080 
IF  FAC( I )/FA+.85*ABS(FBM( I ,2 ,2) )/( (1-FAC( I )/FE)*FBSCN) >1  GOTO  5080 
IF  M(I ,1)<0  GOTO  4910 

IF  FAC( I )/CFYS+M< I ,1 )*Y1( I )/( I E( I )*FBSCP) >1  THEN  5080  ELSE  4920 
IF  FAC( I )/CFYS-M( I ,l)*(OST( I )-Yl( I ) )/( IE( I )*FBSCN) >1  GOTO  5080 
IF  M(1 ,2X0  GOTO  4950 

IF  FAC( I )/CFYS+M( I ,2)*(DST( I )-Yl( I ) )/( IE( I )*FBSCN) >1  THEN  5080 
GOTO  4970 

IF  FAC(I)/CFYS-M(I ,2)*Y1 ( I )/( IE( I )*FBSCP) >1  GOTO  5080 
REM  Check  Maximum  Plate  Stress 

IF  FYP>=FYS  GOTO  5090 

IF  FAC( I )/CFYP+ABS( FBM( I ,3,2) )/FBPN>l  GOTO  5080 

IF  FBM( 1,3,1) >FBPP  THEN  5080  ELSE  5090 

REM  Simultaneous  Axial  Tension  and  Transverse  Loading 

IF  FAC( I )/CFYS+FBM( 1,1, 1 )/FBSTP>l  GOTO  5080 

IF  FAC( I )/CFYS+ABS( FBM( 1,1,2) )/FBSTN>l  GOTO  5080 

IF  FBM( 1,2,1) >FBSCP  GOTO  5080 
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5040  IF  ABS(FBM(I ,2,2))>FBSCN  GOTO  5080 

5050  REM  Check  Maximum  Plate  Stress 

5060  IF  ABS(FAC(I))/CFYP+FBM(I,3,1)/FBPP>1  GOTO  5080 

5070  IF  ABS(FBM( 1,3,2)) >FBPN  THEN  5080  ELSE  5090 

5080  FLAG( I )=1 

5090  RETURN 

5100  REM  COMBINED  STIFFENER  AND  ADJACENT  EFFECTIVE  PLATE  DEFLECTION  SUBROUTINE 
5110  REM  Calculate  Maximum  Stiffener  Deflection 
5120  DMAX=0\  IF  PD(I)<=0  GOTO  5220 

5130  REM  Simultaneous  axial  compression  and  transverse  loading 

5140  FOR  X-.5  TO  LFT(I)  STEP  .5\T1=12*K1( I )*X\T2=12*K1( I )*LFT( I ) 

5150  TERM1=FNTAN(6*K1( I )*LFT( I ) )*SIN(T1)+72*K1( I ) A2*XA2+C0S(T1 )-l 
5160  DSXA=W( I ,LC)*TERMl/( 12*K1 ( I ) A2*PD( I ) )-6*W( I , LC)*LFT ( I )*X/PD( I ) 

5170  DSXB1=-1000*M( I , 1)*( SIN(T1)/FNTAN(T2)-C0S(T1)-X/LFT ( I )+l)/PD( I ) 

5180  DSXB2=-1000*M( I , 2)*( SIN(T1 )/SIN(T2)-X/LFT( I ) )/PD( I ) 

5190  DSX=DSXA+DSXB1+DSXB2\  IF  ABS(DSX) >Dtt*X  THEN  DMAX=ABS(DSX) 

5200  NEXT  X\  GOTO  5290 

5210  REM  Simultaneous  axial  tension  and  transverse  loading 

5220  FOR  Xs. 5  TO  LFT(I)  STEP  .5 

5230  TERM1=.Q72*W( I ,LC)*X*(LFT( I ) A3-2*LFT( I )*XA2+XA3)/(ES*IE( I ) ) 

5240  T£RM2=24*M( I ,1)*X*(LFT( I )-X)*(2*LFT( I )-X)/(LFT( I )*ES*IE( I ) ) 

5250  TERM3=24*M< I , 2)*LFT( I )*X*( 1-XA2/LFT( I ) A2)/( ES*I E( I ) ) 

5260  DSX=TERM1+TERM2+TERM3\  IF  ABS(DSX) >DMAX  THEN  DMAX=A8S(DSX) 

5270  NEXT  X 

5280  REM  Compare  Maximum  Deflection  to  Allowable  Deflection 
5290  IF  DMAX>LFT ( I )*12/DSA( LCOND)  THEN  FLAG(I)*1 
5300  RETURN 

5310  REM  AI SC  1.10.5.4  STIFFENER  MOMENT  OF  INERTIA  WD  GROSS  AREA  REQUIREMENTS 

5320  REM  Stiffener  Moment  of  Inertia  Requirement 

5330  IW=IXS< I )+AST( I )*(DST( I )-YS( I )+T( I )/2) A2 

5340  IF  1=2  THEN  LYT=LY(2)\LYB=LY(3)\  GOTO  5360 

5350  LYT =LY ( 1 ) \LYB=LY ( 4 ) 

5360  HWEB=12*LFT ( I ) -LYT-LYBN  IF  IW<(U4EB/50) A4  GOTO  5450 
5370  REM  Stiffener  Gross  Area  Requirement 

5380  ALPHA=SS( I )/HWEB\K2=4+( 5.34/ALPHAA2)\CV=45000*K2/(FYP*( hWEB/T (I ) ) A2) 

5390  IF  CV> .8  THEN  CV=190*SQR(K2/FYP)/(HWEB/T( I ) ) 

5400  FVAVG=WG*LSPAN/(  4000*WEB*T(  I )  )\FVALL=FYP*CV/2 .89 
5410  IF  FVALL> . 4*FYP  THEN  FVALL=.4*FYP 
5420  BETA=2 . 4*FVAVG/FVALL 

5430  AREQ=(1~CV)*( ALPHA-ALPHA* 2/SQR( 1+ALPHAA2) )*FYP*HWEB*T( I )*BETA/( 2*FYS) 

5440  IF  AST ( I ) <AREQ  THEN  5450  ELSE  5460 
5450  FLAG( I )=1 
5460  RETURN 


APPENDIX  D 
DESIGN  EXAMPLE 


A  rectangular  section  of  horizontal  ductwork  is  designed  using 
the  allowable  stress  design  procedure  detailed  in  Appendix  B.  The 
following  computer  output  is  generated  by  the  programs  listed  in 
Appendix  C.  Both  the  pinned-end  stiffener  and  rigid  frame  stiffener 
programs  are  used.  The  design  inputs  shown  in  the  following  computer 
printouts,  including  physical  dimensions,  material  properties,  design 
loads  and  design  criteria,  are  identical  to  those  used  in  a  previous 
hand-calculated  duct  design.  Results  are  tabulated  and  compared  in 
Chapter  VI. 
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DUCTWORK  STRUCTURAL  DESIGN 


WHAT  IS  THE  DUCT  SPAN  (CLEAR  DISTANCE  BETWEEN  SUPPORTS)  IN  FEET'5 
?  47.3 

INPUT  THE  WIDTHS  OF  SIDES  1,2,3  AND  4  IN  FEET. 

(SIDE  l*TOP ,  SIDES  2  AND  4*SIDES,  SIDE  3-BOTTOM) 

?  12,14,12,14 


THE  FOLLOWING  INPUT  IS  USED  TO  CALCULATE  THE  ADJUSTED  MAINTENANCE  LIVE  LOAD. 

INPUT  THE  ANGLE  BETWEEN  THE  TOP  PLATE  AND  HORIZONTAL  AND  THE 
ANGLE  BETWEEN  THE  BOTTOM  PLATE  AND  HORIZONTAL,  IN  DEGREES. 

(MUST  BE  LESS  THAN  OR  EQUAL  TO  45  DEGREES) 

?  0,0 

WHAT  IS  THE  NOMINAL  MAINTENANCE  LIME  LOAD  IN  PSF"5 
?  25 

INPUT  AN  INITIAL  ESTIMATION  OF  THE  STIFFENER  SPACING  IN  INCHES 
(USE  INITIAL  EST.  OF  36  IN.  IF  NO  BETTER  VALUE  IS  AVAILABLE) 

?  48 


THE  FOLLOWING  INPUT  IS  USED  TO  CALCULATE  DESIGN  WIND  LOADS. 

WHAT  IS  THE  HEIGHT  OF  THE  TOP  OF  THE  DUCT  ABOVE  THE  GROUND  IN  FT5 
?  55 

WHAT  IS  MEAN  HEIGHT  OF  THE  DUCT  SECTION  ABOVE  THE  GROUND  IN  FT5 
(HEIGHT  OF  CENTERLINE  OF  THE  DUCT  SECTION  ABOVE  THE  GROUND) 

?  43 

WHAT  IS  THE  BASIC  WIND  SPEED  IN  MILES  PER  HOUR? 

(FROM  PDM  OR  ANSI  A38 . 1-1982,  FIGURE  1,  TABLE  7  OR  SECTION  6.5) 

?  80 

HOW  MANY  MILES  INLAND  FROM  A  HURRICANE  OCEAN  LINE? 

(IF  GREATER  THAN  100  MILES  ENTER  100) 

?  100 

WHAT  IS  THE  MINIMUM  WIND  LOADING,  FROM  PDM,  IN  PSF? 

(DEFAULT  VALUE  IS  10  PSF,  PER  ANSI  38.1-1382,  SECTION  6. 4. 2.1) 

?  20 

WIND  EXPOSURE  CATEGORY  C  OR  D? 

(FROM  ANSI  58.1-1982,  SECTION  6.5.3,  OR  FROM  PDM) 

?  C 

WILL  THE  DUCTWORK  HAVE  INSULATION  AND  LAGGING?  (Y  OR  N) 

?  y 
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THE  FOLLOWING  INPUT  IS  USED  TO  DETERMINE  OPERATING  AND  EXCURSION 
LOADS 

ENTER  THE  DESIGN  OPERATING  VACUUM  FOR  THIS  DUCT  SECTION  CIN.W.G.) 

?  20 

ENTER  THE  DESIGN  OPERATING  PRESSURE  FOR  THE  DUCT  SECTION  (IN.W.G.) 
?  20 

ENTER  THE  DESIGN  EXCURSION  VACUUM  FOR  THIS  DUCT  SECTION  (IN.W.G.) 

?  43 

ENTER  THE  DESIGN  EXCURSION  PRESSURE  FOR  THE  DUCT  SECTION  (IN.W.G.) 
?  20 


THE  FOLLOWING  INPUT  IS  USED  IN  THE  DUCT  PLATE  DESIGN 

WHAT  IS  THE  MODULUS  OF  ELASTICITY  OF  THE  PLATE  IN  KSI? 

?  29000 

WHAT  IS  POISSON'S  RATIO  FOR  THE  PLATE'3 
?  .3 

ENTER  THE  MAXIMUM  ALLOWABLE  PLATE  DEFLECTION  FOR  NORMAL  OPERATING  CONDITIONS 
ENTER  XXX,  WHERE  MAX.  ALLOW.  DEFLECTION  =  PLATE  SPAN/XXX 
(SUGGESTED  VALUE  FOR  XXX  IS  100) 

?  100 

DO  YOU  WANT  TO  SPECIFY  A  MAXIMUM  ALLOWABLE  PLATE  DEFLECTION  UNDER  WIND  OR 
SEISMIC  FORCES?  (Y  OR  N) 

?  Y 

ENTER  THE  MAXIMUM  ALLOWABLE  PLATE  DEFLECTION  UNDER  WIND  OR  SEISMIC  FORCES: 
ENTER  XXX,  WHERE  MAX.  ALLOW.  DEFLECTION  »  PLATE  SPAN/XXX 
?  75 

DO  YOU  WANT  TO  SPECIFY  A  MAXIMUM  PLATE  DEFLECTION  UNDER  EXCURSION 
PRESSURE  OR  VACUUM  CONDITIONS'3  (Y  OR  N) 

?  N 

ENTER  THE  PLATE  YIELD  STRESS  IN  KSI 
50 
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YOU  NOW  HAVE  TWO  OPTIONS,  AS  DESCRIBED  BELOW: 

1.  UNDER  OPTION  1,  THIS  PROGRAM  WILL  GENERATE  A  SET  OF  TABLES  DISPLAYING 
MAXIMUM  PLATE  STRESSES  AND  DEFLECTIONS  FOR  VARIOUS  STIFFENER  SPACING  AND  PLATE 
THICKNESS  COMBINATIONS.  FROM  THESE  TABLES  YOU  WILL  SELECT  AN  ACCEPTABLE  PLATE 
THICKNESS  AND  STIFFENER  SPACING  FOR  EACH  OF  THE  FOUR  SIDES  OF  THE  DUCT.  IT  WILi. 
Take  APPROXIMATELY  50  to  so  minutes  for  the  computer  to  generate  these  tables. 

2.  UNDER  OPTION  2,  YOU  MUST  ENTER  TRIAL  VALUES  OF  PLATE  THICKNESS  AND  STIFFENER 
SPACING  FOR  EACH  OF  THE  FOUR  DUCT  SIDES.  MAXIMUM  PLATE  STRESSES  AND  DEFLECTIONS 
ARE  THEN  CALCULATED  AND  DISPLAYED.  YOU  ARE  GIVEN  THE  OPPORTUNITY  TO  CHANGE 
PLATE  THICKNESSES  AND/OR  STIFFENER  SPACINGS  AS  REQUIRED.  OPTION  2  IS  FASTER 
THAN  OPTION  1,  BUT  THE  MOST  EFFICIENT  DESIGN  MAY  BE  OVERLOOKED  USING  OPTION  2. 

DO  YOU  WISH  TO  SELECT  OPTION  1  OR  OPTION  2?  (ENTER  1  OR  2) 

?  1 


FOR  EACH  PLATE  THICKNESS  VS.  STIFFENER  SPACING  COMBINATION  IN  EACH  OF  THE 
FOLLOWING  FOUR  TABLES  THE  FOLLOWING  INFORMATION  IS  TABULATED: 


AA.AA  =  MAXIMUM  DUCT  PLATE  STRESS  UNDER  NORMAL  OPERATING  CONDITIONS 
B.BB  =  MAXIMUM  PLATE  DEFLECTION  UNDER  NORMAL  OPERATING  CONDITIONS 
CC.CC  »  MAXIMUM  PLATE  STRESS  UNDER  WIND  OR  SEISMIC  FORCES 
D.DD  =  MAXIMUM  PLATE  DEFLECTION  UNDER  WIND  OR  SEISMIC  FORCES 
EE. EE  =  MAXIMUM  PLATE  STRESS  FOR  PRESSURE  EXCURSION  CONDITIONS 
F.FF  =  MAXIMUM  PLATE  DEFLECTION  FOR  PRESSURE  EXCURSION  CONDITIONS 


ADDITIONAL  NOTES:  1)  STRESSES  ARE  IN  KSI ,  DEFLECTIONS  ARE  IN  INCHES. 

2)  AN  ASTERISK  <*)  FOLLOWING  A  NUMBER  INDICATES  THAT  THE 
STRESS  INTERACTION  REQUIREMENT  IS  NOT  SATISFIED  FOR  THIS 
LOAD  CONDITION.  OR  THE  DEFLECTION  EXCEEDS  THE  ALLOWABLE. 

3)  ##*##  INDICATES  THAT  THE  LOAD/DIMENSIONS  COMBINATION 

IS  OUTSIDE  THE  RANGE  OF  TIMOSHENKO'S  METHOD.  OR  INVOLVES 
CALCULATIONS  WITH  REAL  NUMBERS  OF  MAGNITUDES  EXCEEDING 
THE  REPRESENTATION  CAPABILTIY  OF  PRO  BASIC  ON  THE  DEC  350 
COMPUTER. 


AA.AA 
B.BB 
CC.CC 
D.DD 
EE.  EE 
F.FF 
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STRESSES  AND  DEFLECTIONS  FOR  SIDE  1  DUCT  PLATE  (INTERIOR  PANELS ) 


PLATE  THICKNESS  (INCHES) 


STIFFEN. 


ALLOW. 


N/A 


26.31 

0.28 


19.70 

0.21 


SPACING  1 
( INCHES) 1 

DEFLECT. | 

( INCHES) 1 

1  3/16 

1 

1 

1/4 

1 

1 

5/16 

1 

1 

3/8 

1 

1 

7/16 

1 

1 

1/2 

1 

1 

1  6.71 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.24  | 

1  0.04 

1 

##### 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

24  | 

1 

I  6.82 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.32  1 

1  0.04 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  13.27 

1 

7.65 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

N/A  | 

I  0.07 

1 

0.03 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  10.09 

1 

5.91 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.30  1 

I  0.08 

1 

0.04 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

30  1 

1 

t  10.25 

1 

6.01 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.40  1 

1  0.09 

1 

0.04 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  18.56 

1 

11.82 

1 

7.65 

1 

***** 

1 

***** 

1 

***** 

1 

N/A  | 

1  0.14 

1 

0.08 

1 

0.04 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  13.14 

1 

8.40 

1 

5.44 

1 

***** 

1 

***** 

1 

***** 

1 

0.36  1 

1  0.14 

1 

0.08 

1 

0.04 

1 

***** 

1 

***** 

1 

***** 

36  I 

1 

1  13.32 

1 

8.53 

1 

5.53 

1 

***** 

1 

***** 

1 

***** 

1 

0.48  1 

1  0.14 

1 

0.08 

1 

0.04 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  22.78 

1 

16.05 

1 

10.95 

1 

7.65 

1 

***** 

1 

***** 

1 

N/A  | 

1  0.21 

1 

0.14 

1 

0.08 

1 

0.05 

1 

***** 

1 

***** 

1 

1 

1  15.66 

1 

10.91 

1 

7.38 

1 

5.14 

1 

***** 

1 

***** 

1 

0.42  I 

1  0.20 

1 

0.13 

1 

0.08 

1 

0.05 

1 

***** 

1 

***** 

42  1 

1 

1  15.86 

1 

11.07 

1 

7.50 

1 

5.23 

1 

***** 

1 

***** 

1 

0.56  1 

1  0.20 

1 

0.13 

1 

0.08 

1 

0.05 

1 

***** 

1 

***** 

14.40 

0.14 


10.38 

0.09 


7.65 

0.06 


5 . 86 
0.04 


1  1 

17.80 

1 

13.14  I 

9.42  I 

6.71 

0.48 

1  1 

0.26 

1 

0.19  1 

0.12  1 

0.08 

1  1 

18.02 

1 

13.32  1 

9.57  | 

6.82 

0.64 

1  1 

0.27 

1 

0.19  1 

0.13  | 

0.08 

i  1 

29.46 

1 

22.78  1 

17.59  1 

13.27 

N/A 

1  1 

0.36 

1 

0.28  1 

0.21  1 

0.15 

4.93 

1 

***** 

0.05 

1 

***** 

5.02 

1 

***** 

0.05 

1 

***** 

9.97 

1 

7 . 65 

0.10 

1 

0.07 

1  1 

19.73 

1 

15.07 

1 

11.38 

1 

8.40  | 

6.25  I 

4.77 

0.54 

1  I 

0.32 

1 

0.25 

1 

0.18 

1 

0.12  1 

0.08  | 

0.05 

1  1 

19.96 

1 

15.26 

I 

11.55 

1 

8.53  1 

6.35  1 

4.S6 

0.72 

1  1 

0.33 

t 

0.25 

1 

0.18 

1 

0.12  1 

0.08  1 

0.05 

1  1 

32.38 

1 

25.47 

I 

20.36 

1 

16.05  1 

12.44  | 

9.67 

N/A 

1  1 

0.43 

1 

0.36 

1 

0.28 

1 

0.21  1 

0.15  I 

0.11 

1  1 

21.51 

1 

16.76 

1 

13.14 

1 

10.09  1 

7.67  | 

5.91 

o 

kO 

o 

1  1 

0.39 

1 

0.31 

1 

0.24 

1 

0.17  1 

0.12  | 

0.03 

1  1 

21.77 

1 

16.97 

1 

13.32 

1 

10.25  1 

7.79  | 

6.01 

0.80 

1  1 

0.39 

1 

0.31 

1 

0.24 

1 

0.17  I 

0.12  | 

0.08 

1  1 

35.14 

! 

27.92 

1 

22.78 

1 

18.56  1 

14.88  | 

11.82 

N/A 

1  1 

0.51 

1 

0.43 

1 

0.35 

1 

0.28  1 

0.21  | 

0 .16 

N/A 
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STRESSES  AND  DEFLECTIONS  FOR  SIDE  1  DUCT  PLATE  (INTERIOR  PANELS) 


PLATE  THICKNESS  (INCHES) 


STIFFEN. 1 
SPACING  I 
( INCHES) 1 

ALLOW. 
DEFLECT. 
( INCHES) 

1  1 

1  1 

1  1 

3/16 

1 

1 

! 

1/4 

1 

1 

1 

5/16 

1 

1 

1 

3/8 

1 

1 

1 

7/16 

1 

1 

1 

1/2 

1 

1  1 

23.20 

1 

18.30 

1 

14.71 

1 

11.69 

1 

9.13 

1 

7.13 

1 

0.66 

1  1 

0.45 

i 

0.37 

1 

0.30 

1 

0.23 

1 

0.16 

1 

0.12 

66  1 

1  1 

23.47 

1 

18.52 

1 

14.90 

1 

11.86 

1 

9.27 

1 

7.24 

I 

0.88 

i  1 

0.45 

1 

0.37 

1 

0.30 

1 

0.23 

n 

n 

0.12 

1 

1  1 

37.77 

1 

30.21 

1 

24.96 

1 

20.79 

H 

ftULLfl 

H 

13.93 

1 

N/A 

1  1 

0.58 

1 

0.50 

1 

0.43 

1 

0.35 

i 

0.23 

i 

0.22 

1 

1  1 

24.81 

1 

19.73 

1 

16.11 

1 

13.14 

i 

10.56 

i 

8.40 

1 

0.72 

1  1 

0.51 

1 

0.43 

1 

0.36 

1 

0.29 

i 

0.22 

i 

0.16 

72  1 

1  1 

25.10 

1 

19.96 

1 

16.31 

1 

13.32 

i 

10.72 

i 

8.53 

1 

0.96 

1  1 

0.51 

1 

0.44 

I 

0.36 

1 

0.29 

i 

0.22 

i 

0.16 

1 

1  I 

40.30 

1 

32.38 

1 

26.97 

1 

22.78 

i 

19.22 

i 

16.05 

1 

N/A 

I  1 

0.66 

1 

0.57 

1 

0.50 

1 

0.42 

i 

0.35 

i 

0.23 

1 

1  1 

26.36 

1 

21.08 

1 

17.39 

1 

14.46 

i 

11.91 

i 

9.67 

1 

0.78 

1  1 

0.57 

1 

0.49 

1 

0.42 

i 

0.35 

i 

0.27 

i 

0.21 

78  1 

1  1 

26.67 

1 

21.32 

1 

17.61 

1 

14.65 

i 

12.08 

i 

9.32 

1 

1.04 

1  1 

0.58 

1 

0.50 

1 

0.42 

1 

0.35 

i 

0.28 

i 

0.21 

1 

1  1 

42.74 

1 

34.46 

1 

28.86 

1 

24.61 

i 

21.08 

i 

17.96 

1 

N/A 

1  1 

0.74 

1 

0.65 

1 

0.57 

1 

0.50 

i 

0.42 

i 

0.35 

1 

1  1 

27.86 

1 

22.37 

1 

18.59 

1 

15.66 

i 

13.14 

i 

10.91 

1 

0.84 

1  i 

0.64 

I 

0.56 

1 

0.48 

1 

0.41 

i 

0.33 

i 

0.26 

84  | 

1  1 

28.18 

I 

22.63 

1 

18.82 

1 

15.86 

i 

13.32 

n 

1 

CM 

H 

1  1 

0.64 

1 

0.56 

1 

0.48 

1 

0.41 

i 

0.34 

H 

1 

1  1 

45.11 

1 

36.47 

1 

30.66 

1 

26.31 

i 

22.78 

H 

1 

N/A 

1  1 

0.82 

1 

.0.73 

1 

0.64 

1 

0.57 

i 

0.50 

H 

Bill  i 

1 

1  1 

29.32 

1 

23.61 

1 

19.73 

1 

16.76 

i 

14.28 

i 

12.07 

1 

0.90 

1  1 

0.71 

1 

0.62 

1 

0.54 

1 

0.47 

i 

0.39 

i 

0.32 

90  1 

1  1 

29.66 

1 

23.88 

1 

19.96 

1 

16.97 

i 

14.47 

i 

12.24 

1 

1.20 

1  1 

0.71 

1 

0.62 

1 

0.54 

1 

0.47 

i 

0.40 

i 

0.32 

1 

1  1 

47.41 

1 

38.41 

1 

32.38 

1 

27.92 

i 

24.36 

i 

21 . 30 

1 

N/A 

1  1 

0.91 

1 

0.80 

1 

0.72 

1 

0.64 

i 

0.57 

i 

0.49 

1 

1  1 

30.73 

1 

24.81 

1 

20.81 

1 

17.80 

i 

15.32 

i 

13.14 

1 

0.96 

1  1 

0.77 

1 

0.63 

1 

0.60 

1 

0.53 

i 

0.45 

i 

0 . 38 

96  | 

1  1 

31.09 

1 

25.10 

1 

21.06 

1 

18.02 

i 

15.52 

i 

13.32 

1 

1.28 

1  1 

0.78 

1 

0.68 

1 

0.61 

1 

0.53 

i 

0.46 

i 

0 . 38 

1 

1  1 

49.65 

1 

40.30 

1 

34.06 

1 

29.46 

i 

25.84 

i 

22.78 

1 

N/A 

1  1 

0.99 

1 

0.88 

1 

0.79 

1 

0.71 

i 

0 .64 

i 

0.57 
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STRESSES  AND  DEFLECTIONS  FOR  SIDE  2  DUCT  PLATE  (INTERIOR  PANELS) 


PLATE  THICKNESS  (INCHES) 


STIFFEN.  | 
SPACING  | 

( INCHES) | 

ALLOW .  | 
DEFLECT. 1 
(INCHES)  1 

1  3/16 

1 

1 

1 

1/4 

1 

1 

1 

5/16 

1 

1 

1 

3/8 

1 

1 

1 

7/16 

1 

1 

1 

1/2 

1 

I 

1  6.95 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.24  | 

1  0.04 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

24  | 

1 

1  7.41 

I 

4.17 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.32  I 

1  0.04 

1 

0.02 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  12.59 

1 

7.24 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

N/A  | 

1  0.07 

1 

0.03 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  10.42 

1 

6.12 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.30  I 

!  0.09 

I 

0.04 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

30  1 

1 

1  11.05 

1 

6.53 

1 

4.17 

1 

***** 

1 

***** 

1 

***** 

1 

0.40  1 

1  0.09 

1 

0.04 

1 

0.02 

1 

***** 

1 

***** 

1 

***** 

1 

1 

1  17.73 

1 

11  .20 

1 

7.24 

1 

***** 

1 

***** 

1 

***** 

1 

N/A  | 

1  0.14 

1 

0.07 

1 

0.04 

1 

##### 

1 

***** 

1 

***** 

1 

1 

1  13.53 

1 

8.69 

1 

5.64 

1 

***** 

1 

***** 

1 

***** 

1 

0.36  | 

1  0.15 

I 

0.08 

1 

0.04 

1 

***** 

i 

***** 

1 

***** 

36  I 

1 

1  14.25 

1 

9.24 

1 

6.02 

1 

4.17 

1 

***** 

1 

***** 

1 

0.48  | 

1  0.15 

I 

0.09 

1 

0.05 

1 

0.03 

1 

***** 

1 

***** 

1 

1 

1  21.85 

1 

15.29 

1 

10.37 

1 

7.24 

1 

***** 

1 

***** 

1 

N/A  | 

1  0.21 

1 

0.13 

1 

0.08 

1 

0.05 

1 

***** 

1 

***** 

1 

1 

1  16.08 

1 

11.26 

1 

7.64 

1 

5.33 

1 

***** 

1 

***** 

1 

0.42  | 

1  0.21 

t 

0.14 

1 

0.08 

1 

0.05 

1 

***** 

1 

***** 

42  | 

1 

1  16.88 

1 

11 .91 

1 

8.13 

1 

5.69 

1 

4.17 

1 

***** 

1 

0.56  I 

1  0.21 

1 

0.14 

1 

0.09 

1 

0.05 

1 

0.03 

1 

***** 

1 

1 

i  25.28 

1 

18.85 

1 

13.69 

1 

9.82 

1 

7.24 

1 

5.53 

1 

N/A  | 

1  0.28 

1 

0.20 

1 

0.14 

1 

0.09 

1 

0.06 

1 

0.04 

1 

1 

1  18.27 

1 

13.53 

1 

9.74 

1 

6.95 

1 

5.11 

1 

***** 

1 

0.48  1 

1  0.27 

1 

0.19 

1 

0.13 

1 

0.08 

1 

0.05 

1 

***** 

48  1 

1 

1  19.14 

1 

14.25 

1 

10.34 

1 

7.41 

1 

5.45 

1 

4.17 

1 

0.64  I 

1  0.28 

1 

0.20 

1 

0.13 

1 

0.09 

1 

0.06 

1 

0.04 

1 

1 

1  28.33 

1 

21.85 

1 

16.79 

1 

12.59 

1 

9.44 

1 

7.24 

1 

N/A  | 

1  0.35 

1 

0.28 

1 

0.20 

1 

0.14 

1 

0.09 

1 

0.06 

1 

1 

1  20.23 

1 

15.49 

1 

11.74 

1 

8.69 

1 

6.47 

1 

4.95 

1 

0.54  | 

1  0.33 

1 

0.26 

I 

0.18 

1 

0.12 

1 

0.08 

1 

0.06 

34  | 

1 

1  21.18 

1 

16.27 

1 

12.41 

1 

9.24 

1 

6.90 

1 

5 . 28 

1 

0.72  | 

1  0.34 

1 

0.26 

1 

0.19 

1 

0.13 

1 

0.09 

1 

0.06 

1 

t 

1  31.16 

1 

24.47 

1 

19.49 

1 

15.29 

1 

11.80 

1 

9.15 

1 

N/A  | 

i  0.42 

1 

0.35 

1 

0.27 

1 

0.20 

1 

0.14 

1 

0.10 

1  1 

22.06 

1 

17.21 

1 

13.53 

1 

10.42  1 

7.94  | 

*  6.12 

O 

VO 

o 

1  1 

0.39 

1 

0.32 

1 

0.24 

1 

0.17  1 

0.12  1 

0.08 

1  1 

23.07 

1 

18.05 

1 

14,25 

1 

11.05  1 

3.45  1 

6.53 

0.80 

1  1 

0.40 

1 

0.33 

1 

0.25 

1 

0.18  1 

0.13  1 

0.09 

1  1 

33.82 

1 

26.84 

1 

21.85 

1 

17.73  I 

14.16  1 

11.20 

N/A 

1  1 

0.50 

1 

0.42 

1 

0.34 

1 

0.27  1 

0.20  1 

0.15 

N/A 
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STRESSES  AND  DEFLECTIONS  FOR  SIDE  2  DUCT  PLATE  (INTERIOR  PANELS) 


M  PLATE  THICKNESS  (INCHES) 


STIFFEN. 1 
SPACING  | 

( INCHES) 1 

ALLOW. 
DEFLECT . 
( INCHES) 

1  1 

1  1 

1  1 

3/16 

1 

1 

1 

1/4 

1 

1 

1 

5/16 

1 

1 

3/8 

I 

1 

1 

7/16 

1 

1 

1 

1/2 

1 

1  1 

23.78 

1 

18.78 

1 

15.12 

1 

12.05 

1 

9.44 

1 

7.  S3 

1 

0.66 

1  1 

0.45 

1 

0.38 

1 

0.30 

1 

0.23 

1 

0.17 

1 

0.12 

66  1 

1  1 

24.87 

1 

19.67 

1 

15.89 

1 

12.73 

1 

10.02 

1 

7 . 66 

1 

0.88 

1  I 

0.46 

1 

0.39 

1 

0.31 

1 

0.24 

1 

0.18 

1 

0.13 

1 

1  1 

36 . 36 

1 

29.06 

1 

23.97 

1 

19.90 

1 

16.37 

1 

13.28 

1 

N/A 

1  1 

0.57 

1 

0.49 

1 

0.42 

1 

0.34 

1 

0.27 

1 

0.21 

1 

1  1 

25.43 

1 

20.23 

1 

16.54 

1 

13.53 

1 

10.90 

1 

8.69 

1 

0.72 

1  1 

0.52 

1 

0.44 

1 

0.36 

1 

0.29 

1 

0.22 

1 

0.16 

72  1 

1  1 

26.59 

1 

21.18 

1 

17.36 

1 

14.25 

1 

11.54 

1 

9.24 

1 

0.96 

1  t 

0.53 

1 

0.45 

1 

0.38 

1 

0.30 

1 

0.23 

1 

0.17 

1 

1  1 

38.80 

1 

31.16 

1 

25.91 

1 

21.85 

1 

18.38 

1 

15.29 

1 

N/A 

1  1 

0.65 

1 

0.56 

1 

0.49 

1 

0.41 

1 

0.34 

1 

0.27 

1 

1  1 

27.02 

1 

21.61 

1 

17.85 

1 

14.37 

1 

12.27 

1 

10.00 

1 

0.78 

1  1 

0.58 

1 

0.50 

1 

0.43 

1 

0.35 

1 

0.28 

1 

0.21 

78  I 

1  1 

28.24 

1 

22.61 

1 

18.71 

1 

15.63 

1 

12.96 

1 

10.60 

1 

1.04 

1  1 

0.60 

1 

0.51 

1 

0.44 

1 

0.37 

1 

0.29 

1 

0.23 

1 

1  1 

41.15 

1 

33.16 

1 

27.74 

1 

23.63 

1 

20.19 

1 

17.15 

1 

N/A 

1  1 

0.73 

1 

0.64 

1 

0.56 

1 

0.48 

1 

0.41 

1 

0 . 34 

1 

1  1 

28.55 

1 

22.93 

1 

19.07 

1 

16.08 

1 

13.53 

1 

11.26 

1 

0.84 

1  1 

0.65 

1 

0.56 

1 

0.49 

1 

0.41 

1 

0.34 

1 

0.27 

84  1 

1  1 

29.84 

1 

23.98 

1 

19.98 

1 

16.88 

1 

14.25 

1 

11.91 

1 

1.12 

1  1 

0.66 

1 

0.58 

1 

0.50 

1 

0.43 

1 

0.35 

1 

0.28 

1 

1  1 

43.43 

1 

35.10 

1 

29.48 

1 

25.28 

1 

21.85 

1 

13.35 

1 

N/A 

1  1 

0.81 

1 

0.71 

1 

0.63 

1 

0.56 

1 

0.48 

1 

0.41 

1 

1  1 

30.04 

1 

24.20 

1 

20.23 

1 

17.21 

1 

14.68 

1 

12.44 

1 

0.90 

1  1 

0.72 

1 

0.63 

1 

0.55 

1 

0.47 

1 

0.40 

1 

0.33 

90  1 

1  1 

31.39 

1 

25.31 

1 

21.18 

1 

18.05 

1 

15.44 

1 

13.13 

1 

1.20 

1  1 

0.73 

1 

0.64 

1 

0.56 

1 

0.49 

1 

0.42 

1 

0.34 

1 

1  1 

45.65 

1 

36.98 

1 

31.16 

1 

26.84 

1 

23.38 

1 

20 .41 

1 

N/A 

1  1 

0.89 

1 

0.79 

1 

0.70 

1 

0.63 

1 

0.55 

1 

0 .43 

1 

1  1 

31.49 

1 

25.43 

1 

21 .34 

1 

18.27 

1 

15.75 

1 

13.53 

1 

0.96 

1  1 

0.78 

1 

0.69 

1 

0.61 

1 

0.54 

1 

0.46 

1 

0 . 39 

96  1 

1  1 

32.90 

1 

26.59 

1 

22.33 

1 

19.14 

1 

16.53 

1 

14.25 

1 

1.28 

1  1 

0.80 

1 

0.71 

1 

0.63 

1 

0.55 

1 

0.48 

1 

0 . 40 

t 

1  1 

47.31 

1 

38.80 

1 

32.77 

1 

28.33 

1 

24.82 

1 

21 .35 

1 

N/A 

1  1 

0.97 

1 

0.86 

1 

0.78 

1 

0.70 

1 

0.62 

1 

0 . 55 
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STRESSES  AND  DEFLECTIONS  FOR  SIDE  3  DUCT  PLATE  (INTERIOR  PANEL  3 ) 


PLATE  THICKNESS  (INCHES) 


STIFFEN. | 
SPACING  1 
( INCHES) 1 

ALLOW. 
DEFLECT. 
( INCHES) 

1  1 

1  1 

1  I 

3/16 

1 

I 

1 

1/4 

1 

1 

1 

5/16 

1 

1 

1 

3/8 

1 

1 

1 

7/16 

1 

I 

1 

1/2 

1 

1  I 

15.85 

1 

9.28 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

0.24 

1  1 

0.09 

1 

0.04 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

24  | 

1  1 

15.85 

t 

9.28 

1 

••••• 

1 

•••*• 

1 

***** 

1 

***** 

1 

0.32 

1  1 

0.09 

1 

0 .04 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

1  1 

15.85 

1 

9.28 

1 

***** 

1 

***** 

1 

***** 

1 

***** 

1 

N/A 

1  1 

0.09 

1 

0.04 

1 

>••** 

1 

***** 

1 

***** 

1 

***** 

1 

1  1 

21.69 

1 

14.20 

( 

9.28 

1 

6.45 

I 

***** 

1 

***** 

1 

0.30 

i  1 

0.16 

1 

0.09 

( 

0 .05 

1 

0.03 

1 

***** 

1 

***** 

30  1 

1  1 

21 .69 

1 

14.20 

1 

9.28 

I 

6.45 

1 

***** 

1 

***** 

1 

0.40 

1  1 

0.16 

1 

0 .09 

1 

0.05 

1 

0.03 

1 

***** 

1 

***** 

1 

1  1 

21.69 

1 

14.20 

1 

9.28 

1 

6.45 

1 

***** 

1 

***** 

1 

N/A 

1  1 

0.16 

1 

0.09 

1 

0.05 

1 

0.03 

1 

***** 

1 

***** 

1 

1  1 

26.31 

1 

18.95 

n 

n 

9.28 

1 

6.81 

1 

***** 

1 

0.36 

I  1 

0.23 

1 

0.16 

H 

H 

0.06 

1 

0.04 

1 

***** 

36  1 

1  1 

26.31 

1 

18.95 

i 

13.20 

i 

9.28 

1 

6.81 

1 

***** 

I 

0.48 

1  1 

0.23 

1 

0.16 

i 

0.10 

i 

0.06 

i 

0.04 

1 

***** 

1 

1  1 

26.31 

1 

18.95 

i 

13.20 

i 

9.28 

1 

6.81 

1 

***** 

1 

N/A 

1  1 

0.23 

I 

0.16 

i 

0.10 

i 

0.06 

I 

0.04 

1 

***** 

1 

1  1 

30.22 

1 

22.94 

i 

n 

n 

9.28 

1 

7.10 

1 

0.42 

1  1 

0.31 

1 

0.24 

i 

H 

H 

0.07 

i 

0.05 

42  1 

1  1 

30.22 

1 

22.94 

i 

17.13 

H 

H 

9.28 

1 

7.10 

1 

0.56 

1  1 

0.31 

1 

0.24 

i 

MMM 

n 

*!!$£»  f  m 

H 

0.07 

1 

0.05 

1 

1  1 

30.22 

1 

22.94 

i 

S89 

12.53 

i 

9.28 

1 

7.10 

1 

N/A 

1  1 

0.31 

1 

0.24 

i 

mm 

U 

0.11 

i 

0.07 

1 

0.05 

I 

1  1 

33.75 

1 

26.31 

i 

20.64 

i 

15.85 

i 

12.05 

1 

9.23 

1 

0.48 

1  1 

0.39 

1 

0.31 

i 

0.24 

i 

0.17 

i 

0.12 

1 

0.03 

48  1 

1  1 

33.75 

1 

26.31 

i 

20.64 

i 

15.85 

i 

12.05 

1 

9.28 

1 

0.64 

1  1 

0.39 

1 

0.31 

i 

0.24 

i 

0.17 

i 

0.12 

1 

1 

1  1 

33.75 

I 

26.31 

i 

20.64 

i 

15.85 

i 

12.05 

1 

9.28 

1 

N/A 

1  1 

0.39 

1 

0.31 

i 

0.24 

i 

0.17 

i 

0.12 

1 

0.03 

1 

1  I 

37.04 

1 

29.29 

i 

23.65 

i 

18.95 

i 

14.92 

1 

11.69 

1 

0.54 

1  1 

0.46 

1 

0.39 

i 

0.31 

i 

0.24 

i 

0.18 

1 

0.13 

54  | 

1  1 

37.04 

1 

29.29 

i 

23.65 

i 

18.95 

i 

14.92 

1 

11.69 

1 

0.72 

1  1 

0.46 

1 

0.39 

i 

0.31 

i 

0.24 

i 

0.18 

1 

0 .13 

1 

I  1 

37.04 

1 

29.29 

i 

23.65 

i 

18.95 

i 

14.92 

1 

11 .69 

1 

N/A 

1  1 

0 .46 

1 

0.39 

i 

0.31 

i 

0.24 

i 

0.18 

1 

0.13 

1 

1  1 

40.16 

1 

32.02 

i 

26.31 

i 

21.69 

i 

17.66 

1 

14.20 

1 

0.60 

1  1 

0 .54 

1 

0.46 

i 

0.39 

i 

0.32 

i 

0.25 

1 

0.18 

60  | 

1  1 

40.16 

1 

32.02 

i 

26.31 

i 

21.69 

i 

17.66 

1 

14.20 

1 

0.80 

1  1 

0.54 

1 

0 .46 

i 

0.39 

i 

0.32 

i 

0.25 

1 

0 .18 

1 

1  1 

40.16 

1 

32.02 

i 

26.31 

i 

21.69 

i 

17.66 

1 

14.20 

1 

N/A 

1  1 

0.54 

1 

0.46 

i 

0.39 

i 

0.32 

i 

0.25 

1 

0.18 

N/A 


STRESSES  AND  DEFLECTIONS  FOR  SIDE  3  DUCT  PLATE  (INTERIOR  PANELS  > 


PLATE  THICKNESS  (INCHES; 


STIFFEN.  1 
SPACING  | 
( INCHES) 1 

ALLOW.  1 
DEFLECT. | 

( INCHES) 1 

3/16 

1/4 

1 

43.13 

34.59 

0.66  1 

0.63 

0 .54 

66  1 

1 

43.13 

34.59 

0.88  I 

0.63 

0.54 

1 

43.13 

34.59 

N/A  1 

0.63 

0.54 

5/16 

1 

1 

1 

3/8 

1 

1 

1 

7/16 

1 

1 

1 

1/2 

28.71 

1 

24.12 

1 

20.17 

1 

16.66 

0.47 

1 

0.39 

1 

0.32 

1 

0.25 

28.71 

1 

24.12 

1 

20.17 

1 

16.66 

0.47 

1 

0.39 

1 

0.32 

1 

0.25 

28.71 

1 

24.12 

1 

20 .17 

1 

16.66 

0.47 

1 

0.39 

1 

0.32 

1 

0 . 25 

1  1 

46.00 

1 

37.04 

1 

30.95 

1 

26.31 

1 

22.41 

1 

18.95 

0.72 

1  1 

0.71 

1 

0.62 

1 

0.54 

1 

0.47 

1 

0.39 

1 

0 . 32 

1  1 

46.00 

1 

37.04 

1 

30.95 

1 

26.31 

1 

22.41 

1 

13.95 

0.96 

1  1 

0.71 

1 

0.62 

1 

0.54 

1 

0.47 

1 

0.39 

1 

0.32 

1  1 

46.00 

1 

37.04 

1 

30.95 

1 

26.31 

1 

22.41 

1 

18.95 

N/A 

1  1 

0.71 

1 

0.62 

1 

0.54 

1 

0.47 

1 

0.39 

1 

0.32 

1  1 

48.76 

39.39 

0.78 

1  1 

0.79* 

0.70 

I  1 

48.76 

39.39 

1.04 

1  1 

0 . 79 

0.70 

1  1 

48.76 

39.39 

N/A 

1  1 

0.79 

0.70 

33.07 

1 

28.33 

1 

24.44 

1 

21 .04 

0.62 

1 

0.54 

1 

0 .47 

1 

0.40 

33.07 

1 

28.33 

1 

24.44 

1 

21 .04 

0.62 

1 

0.54 

1 

0.47 

1 

0.40 

33.07 

1 

28.33 

1 

24.44 

1 

21 . 04 

0.62 

1 

0.54 

1 

0.47 

i 

0 .40 

84 


90 


96 


0.84 


51.45 

0.88* 

51.45 


1.06 


41.66 
0.78 
41  .66 


0.94 


35.09 

0.70 

35.09 


1.12 

1  1 

0.88 

0.78 

1 

0.70 

1 

0.62 

1 

0.55 

1 

0 . 47 

1  1 

51.45 

41.66 

1 

35.09 

1 

30.22 

1 

26.31 

1 

22 . 94 

N/A 

1  1 

0.88 

0.78 

1 

0.70 

1 

0.62 

1 

0.55 

1 

0.47 

1  1 

54.06 

43.86 

1 

37.04 

1 

32.02 

1 

28.05 

24.69 

0.90 

1  1 

0.97* 

0.86 

1 

0.77 

1 

0.70 

1 

0.62 

1 

0.55 

1  1 

54.06 

43.86 

1 

37.04 

1 

32.02 

1 

28.05 

1 

24.69 

1.20 

1  1 

0.97 

0.86 

1 

0.77 

1 

0.70 

1 

0.62 

1 

0.55 

1  1 

54.06 

43.86 

1 

37.04 

1 

32.02 

1 

28.05 

1 

24.69 

N/A 

1  1 

0.97 

0.86 

1 

0.77 

1 

0.70 

1 

0.62 

1 

0 . 55 

1  1 

56.60 

46.00 

1 

38.93 

1 

33.75 

1 

29.69 

1 

26 . 31 

0.96 

1  1 

1.06* 

0.94 

1 

0.85 

1 

0.77 

1 

0.70 

1 

0 . 62 

1  1 

56.60 

46.00 

1 

38.93 

1 

33.75 

1 

29.69 

1 

26 . 31 

1.28 

1  1 

1 .06 

0 . 94 

1 

0.85 

1 

0.77 

1 

0 .70 

1 

0.62 

1  1 

56.60 

46.00 

1 

38.93 

1 

33.75 

1 

29.69 

1 

26.31 

0.85 


30.22 

0.62 

30.22 


0.77 


26.31 

0.55 

26.31 


N/A 


STRESSES  AND  DEFLECTIONS  FOR  SIDE  4  DUCT  PLATE  (INTERIOR  PANELS ) 


& 

SS 


16. 08 
0.21 
16.88 
0.21 
23.28 
0.28 


18.27 

0.27 

19.14 

0.28 

28.33 

0.33 


PLATE  THICKNESS  (  INCHES') 


1  ALLOW.  | 

1  DEFLECT. I 

1  ( INCHES)! 

1  3/16 

1 

1/4  1 

5/16 

3/8 

I  1 

1  6.95 

***** 

***** 

***** 

I  0.24  I 

1  0.04 

***** 

***** 

1  1 

1  7.41 

4.17 

***** 

***** 

1  0.32  I 

1  0.04 

0.02 

***** 

***** 

1  1 

1  12.39 

7.24 

***** 

***** 

1  N/A  1 

1  0.07 

0.03 

***** 

***** 

1  1 

I  10.42 

6.12 

***** 

***** 

1  0.30  I 

1  0.09 

0.04 

***** 

***** 

1  1 

1  11.05 

6.53 

4.17 

***** 

1  0.40  | 

1  0.09 

0.04 

0.02 

***** 

1  1 

1  17.73 

11.20 

7.24 

***** 

1  N/A  | 

1  0.14 

0.07 

0.04 

***** 

1  1 

1  13.53 

8.69 

5.64 

***** 

1  0.36  | 

1  0.15 

0.08 

0.04 

***** 

1  1 

1  14.25 

9.24 

6.02 

4.17 

1  0.48  | 

1  0.15 

0.09 

0.05 

0.03 

1  ! 

1  21.85 

15.29 

10.37 

7.24 

1  N/A  | 

1  0.21 

0.13 

0.08 

0.05 

11.26 

0.14 

11.91 

0.14 

18.85 

0.20 


13.53 
0.19 
14.25 
0.20 
21 .85 
0.28 


7.64 

0.08 

8.13 

0.09 

13.69 

0.14 


9.74 

0.13 

10.34 

0.13 

16.79 

0.20 


6.95 

0.08 

7.41 

0.09 

12.59 

0.14 


***** 

***** 

***** 

***** 

***** 

***** 


***** 

***** 

***** 

***** 

***** 

***** 


***** 

***** 

***** 

***** 


***** 

4.17 

0.03 

7.24 

0.06 


1  1 

20.23 

15.49 

1 

11.74 

8.69 

0.34 

1  I 

0.33 

0.26 

1 

0.18 

0.12 

1  1 

21.18 

16.27 

1 

12.41 

9.24 

0.72 

1  1 

0.34 

0.26 

1 

0.19 

0.13 

1  1 

31.16 

24.47 

1 

19.49 

15.29 

N/A 

1  1 

0.42 

0.35 

1 

0.27 

0.20 

1  1 

22.06 

17.21 

1 

13.53 

10.42 

0.60 

1  1 

0.39 

0.32 

1 

0.24 

0.17 

1  1 

23.07 

18.05 

1 

14.25 

11.05 

0.80 

1  1 

0.40 

0.33 

1 

0.25 

0.18 

1  1 

33.82 

26.84 

1 

21.85 

17.73 

N/A 

1  1 

0.50 

0.42 

I 

0.34 

0.27 

7.94 

0.12 

8.45 

0.13 

14.16 


***** 

***** 

***** 

***** 

***** 

***** 


***** 

***** 

***** 

***** 

***** 

***** 


***** 

***** 


***** 

***** 

***** 

***** 


***** 

***** 
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STRESSES  AND  DEFLECTIONS  FOR  SIDE  4  DUCT  PLATE  (INTERIOR  PANELS) 


||  PLATE  THICKNESS  (INCHES) 


STIFFEN. | 
SPACING  1 
( INCHES) 1 

ALLOW. 

DEFLECT. 

(INCHES) 

1  1 

1  1 

1  1 

3/16 

1 

1 

1 

1/4 

1 

1 

1 

5/16 

1 

1 

1 

3/8 

1 

1 

1 

7/16 

1 

1 

1 

1/2 

1 

1  1 

23.78 

1 

18.78 

1 

15.12 

1 

12.05 

1 

9.44 

1 

7.38 

1 

0.66 

1  1 

0.45 

1 

0.38 

1 

0.30 

1 

0.23 

1 

0.17 

1 

0.12 

66  1 

1  1 

24.87 

1 

19.67 

1 

15.39 

1 

12.73 

1 

10.02 

1 

7.86 

1 

0.88 

1  1 

0.46 

1 

0.39 

1 

0.31 

1 

0.24 

1 

0.18 

1 

0.13 

1 

1  1 

36.36 

1 

29.06 

1 

23.97 

1 

19. 9" 

1 

16.37 

1 

13.28 

1 

N/A 

1  1 

0.57 

1 

0.49 

1 

0.42 

1 

0.34 

1 

0.27 

1 

0.21 

1 

1  1 

25.43 

1 

20.23 

1 

16.54 

1 

13.53 

1 

10.90 

1 

3.69 

1 

0.72 

1  1 

0.52 

1 

0.44 

1 

0.36 

1 

0.29 

1 

0.22 

1 

0.16 

72  1 

1  1 

26.59 

1 

21.18 

1 

17.36 

1 

14.25 

1 

11.54 

1 

9.24 

1 

0.96 

1  1 

0.53 

1 

0.45 

1 

0.38 

1 

0.30 

1 

0.23 

1 

0.17 

1 

1  1 

38.80 

1 

31.16 

1 

25.91 

1 

21.85 

1 

18.38 

1 

15.29 

1 

N/A 

1  1 

0.65 

1 

0.56 

1 

0.49 

1 

0.41 

1 

0.34 

1 

0.27 

1 

1  I 

27.02 

1 

21.61 

1 

17.85 

1 

14.87 

1 

12.27 

1 

10.00 

1 

0.78 

1  1 

0.58 

1 

0.50 

1 

0.43 

1 

0.35 

1 

0.28 

1 

0.21 

78  | 

1  1 

28.24 

1 

22.61 

1 

18.71 

1 

15.63 

1 

12.96 

1 

10.60 

1 

1.04 

1  1 

0.60 

1 

0.51 

1 

0.44 

1 

0.37 

1 

0.29 

n 

1 

1  1 

41.15 

1 

33.16 

1 

27.74 

1 

23.63 

1 

20.19 

H 

mmi 

1 

N/A 

1  1 

0.73 

1 

0.64 

1 

0.56 

1 

0.48 

1 

0.41 

H 

fc&l 

1 

1  1 

28.55 

1 

22.93 

1 

19.07 

1 

16.08 

1 

13.53 

i 

11.26 

1 

0.84 

1  1 

0.65 

1 

0.56 

1 

0.49 

1 

0.41 

1 

0.34 

i 

0.27 

84  I 

1  1 

29.84 

1 

23.98 

I 

19.98 

1 

16.88 

1 

14.25 

i 

11.91 

1 

1.12 

1  1 

0.66 

1 

0.58 

1 

0.50 

1 

0.43 

1 

0.35 

i 

0.28 

1 

1  1 

43.43 

1 

35.10 

1 

29.48 

1 

25.28 

1 

21.85 

i 

13.85 

1 

N/A 

1  1 

0.81 

1 

0.71 

1 

0.63 

1 

0.56 

1 

0.48 

i 

0.41 

1  1 

30.04 

1 

24.20 

1 

20.23 

1 

17.21 

1 

14.68 

i 

12.44 

0.90 

1  1 

0.72 

1 

0.63 

1 

0.55 

1 

0.47 

1 

0.40 

i 

0.33 

1  1 

31.39 

1 

25.31 

1 

21.18 

1 

18.05 

1 

15.44 

i 

13.13 

1.20 

1  1 

0.73 

1 

0.64 

1 

0.56 

1 

0.49 

1 

0.42 

i 

0.34 

1  1 

45.65 

1 

36.98 

1 

31.16 

1 

26.84 

1 

23.38 

i 

20.41 

N/A 

1  1 

0.89 

1 

0.79 

1 

0.70 

1 

0.63 

1 

0.55 

i 

0.48 

1 

1  1 

31.49 

1 

25.43 

1 

21 .34 

1 

18.27 

1 

15.75 

i 

13.53 

1 

0.96 

1  1 

0.78 

1 

0.69 

1 

0.61 

1 

0.54 

1 

0.46 

i 

0.39 

96  1 

1  1 

32.90 

1 

26.59 

1 

22.33 

1 

19.14 

1 

16.53 

i 

14.25 

1 

1.28 

1  1 

0.80 

1 

0-71 

1 

0.63 

1 

0.55 

1 

0.48 

i 

0.40 

1 

1  1 

47.81 

i 

38.80 

1 

32.77 

1 

28.33 

1 

24.82 

i 

21.85 

1 

N/A 

1  1 

0.97 

1 

0.86 

1 

0.78 

1 

0.70 

1 

0.62 

i 

0.55 

FROM  THE  PRECEDING  TABLES  SELECT  THE  STIFFENER  SPACING  AND  PLATE 
THICKNESS  FOR  EACH  SIDE  OF  THE  DUCT.  IF  STIFFENERS  WITH  RIGID 
(MOMENT-RESISTING)  CONNECTIONS  AT  THE  DUCT  CORNERS  ARE  TO  BE  USED, 
THE  STIFFENER  SPACINGS  SELECTED  FOR  EACH  SIDE  OF  THE  DUCT  MUST  BE 
EQUAL.  IF  PINNED  (NON  MOMENT-RESISTING)  CONNECTIONS  AT  THE  DUCT 
CORNERS  ARE  TO  BE  USED,  THE  STIFFENER  SPACINGS  FOR  SEPARATE  SIDES 
OF  THE  DUCT  MAY  BE  DIFFERENT.  HOWEVER,  ALL  STIFFENER  SPACINGS 
CHOSEN  SHOULD  BE  EVEN  MULTIPLES  OF  THE  MINIMUM  STIFFENER  SPACING 
SELECTED.  IN  EITHER  CASE,  PLATE  THICKNESSES  MAY  VARY  FROM  SIDE  TO 
SIDE. 


ENTER  THE  PLATE  THICKNESS  (INCHES)  AND  STIFFENER  SPACING  (INCHES)  FOR  SIDE  1 
?  .23,60 

ENTER  THE  PLATE  THICKNESS  (INCHES)  AND  STIFFENER  SPACING  (INCHES)  FOR  SIDE  2 
?  .25,60 

ENTER  THE  PLATE  THICKNESS  (INCHES)  AND  STIFFENER  SPACING  i.  INCHES)  FOR  SIDE  3 
?  .25,60 

ENTER  THE  PLATE  THICKNESS  (INCHES)  AND  STIFFENER  SPACING  (INCHES)  FOR  SIDE  4 
?  .25,60 

SHALL  A  CORROSION  ALLOWANCE  BE  ADDED  TO  THE  PLATE  THICKNESS  ON  EACH  SIDE. OF 
THE  DUCT?  (Y  OR  N) 

Y 

ENTER  THE  CORROSION  ALLOWANCE  IN  DECIMALS  OF  AN  INCH 
?  .0625 

NOTE!  THE  ADDITIONAL  PLATE  THICKNESS  DUE  TO  THE  CORROSION  ALLOWANCE  IS  NOT 
CONSIDERED  IN  ANY  STRUCTURAL  CALCULATIONS,  EXCEPT  THAT  THE  PLATE  DEAD 
LOAD  IS  INCREASED  AS  APPROPRIATE. 


241 


STRESSES  AND  DEFLECTIONS  BASED  ON  THE  ACTUAL  DIMENSIONS  SELECTED 
(INTERIOR  PANELS  -  NONLINEAR  THEORY) 


1  SIDE  1  1 

SIDE  2  1 

SIDE  3  1 

SIDE  4 

PLATE  THICKNESS  (INCHES) 

1  .3125  1 

.3125  1 

.3125  I 

.3125 

STIFFENER  SPACING  (INCHES) 

1  60  1 

60  1 

60  1 

60 

t-WXIMUM  STRESSES  (KSI) 

NO  WIND  OR  SEISMIC  FORCES 

1  1 

1  16.76  i 

1 

17.21  I 

1 

32.02  1 

17.21 

WIND  OR  SEISMIC  FORCES 

1  16.93  1 

17.99  1 

32.02  1 

17.99 

EXCURSION  CONDITIONS 

1  27.92  1 

26.84  I 

32.02  1 

26.84 

MAXIMUM  DEFLECTIONS  (INCHES) 

NO  WIND  OR  SEISMIC  FORCES 

1  I 

1  0.31  1 

1 

0.32  I 

1 

0.46  1 

0  .32 

WIND  OR  SEISMIC  FORCES 

1  0.31  I 

0.33  1 

0.46  1 

0.33 

EXCURSION  CONDITIONS 

1  0.43  1 

0.42  1 

0.46  I 

0.42 

NOTES: 


1)  AN  ASTERISK  (*)  FOLLOWING  A  NUMBER  INDICATES  THAT  THE  STRESS  INTER¬ 
ACTION  REQUIREMENT  IS  NOT  SATISFIED  FOR  THIS  LOAD  CONDITI ON , . OR  THE 
DEFLECTION  EXCEEDS  THE  ALLOWABLE. 

2)  *****  INDICATES  THAT  THE  LOAD/D I MENS I ONS  COMBINATION  IS  OUTSIDE  THE 
RANGE  OF  TIMOSHENKO'S  METHOD  OR  INVOLVES  CALCULATIONS  WITH  REAL 
NUMBERS  OF  MAGNITUDES  EXCEEDING  THE  REPRESENTATION  CAPABILITY  OF 
PRO  BASIC  ON  THE  DEC  350  COMPUTER. 

3)  THE  PLATE  THICKNESSES  SHOWN  IN  THE  ABOVE  TABLE  INCLUDE  THE  CORROSION 
ALLOWANCE.  STRESSES  AND  DEFLECTIONS  SHOWN  ABOVE  ARE  CALCULATED 
IGNORING  THE  ADDITIONAL  PLATE  THICKNESS  DUE  TO  THE  CORROSION 
ALLOWANCE,  EXCEPT  THAT  THE  ADDITIONAL  WEIGHT  OF  THE  PLATE  IS 
CONSIDERED. 


DO  YOU  WISH  TO  CHANGE  A  STIFFENER  SPACING  AND/OR  PLATE  THICKNESS  PREVIOUSLY 
SELECTED?  (Y  OR  N) 

?  N 


MAXIMUM  ALLOWABLE  STIFFENER  SPACINGS  FOR  DUCT  END  PANELS  (LINEAR  THEORY} 


1 

SIDE  1 

1 

SIDE  2 

1 

SIDE  3 

1 

SIDE  4 

PLATE  THICKNESS  (INCHES) 

□ 

.3125 

1 

.3125 

1 

.3125 

MAXIMUM  STIFFENER  SPACING 
BASED  ON  PLATE  STRESS 
( INCHES) 

1 

1 

1 

50 

1 

1 

1 

52 

1 

1 

1 

40 

1 

1 

1 

52 

MAXIMUM  STIFFENER  SPACING 
BASED  ON  DEFLECTION 
( INCHES) 

I 

1 

1 

45 

1 

1 

1 

45 

1 

1 

1 

34 

1 

1 

1 

45 

MAXIMUM  ALLOWABLE  END 

PANEL  STIFFENER  SPACING 
( INCHES) 

1 

l 

l 

45 

1 

1 

1 

45 

1 

1 

1 

34 

1 

1 

1 

45 

assa3Z3ssass:sssa8<3S3s«sinaasxs»aiaas»9ass3>sss»sx3ssssx»»sis»siKa9x 

NOTE:  1)  THE  MAXIMUM  ALLOWABLE  STIFFENER  SPACINGS  SHOWN  ABOVE  ARE  BASED  ON 

LINEAR  THEORY.  THE  END  PANELS  ARE  CONSIDERED  TO  BE  SIMPLY  SUPPORTED 
ALONG  ONE  STIFFENER  AND  FIXED  ALONG  THE  OTHER.  THE  STIFFENERS  ARE 
ASSUMED  TO  PROVIDE  NO  RESTRAINT  IN  THE  PLANE  OF  THE  PLATE. 

2)  THE  PLATE  THICKNESSES  SHOWN  ABOVE  INCLUDE  THE  CORROSION  ALLOWANCE 
PREVIOUSLY  SPECIFIED. 


TRANSVERSE  STIFFENER  DESIGN 


YOU  MAY  ELECT  TO  DESIGN  THE  TRANSVERSE  STIFFENERS  AS  PINNED-END  BEAM  COLUMNS. 

OR  AS  A  RIGID  FRAME  ENCIRCLING  THE  DUCT.  IF  YOU  WISH  TO  EXECUTE  THE  PINNED-END 
STIFFENER  DESIGN  PROGRAM  ENTER  P.  IF  YOU  WISH  TO  EXECUTE  THE  RIGID  FRAME 
STIFFENER  DESIGN  PROGRAM  ENTER  R. 

?  P 

ENTER  THE  STIFFENER  YIELD  STRESS  IN  KSI 
?  50 


ENTER  THE  MODULUS  OF  ELASTICITY  OF  THE  STIFFENERS  IN  KSI 
?  23000 


ENTER  THE  UNIT  WEIGHT  OF  THE  STIFFENERS  IN  PCF 
•>  490 


ENTER  THE  MAXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  FOR  NORMAL  OPERATING 
ENTER  XXX,  WHERE  MAXIMUM  ALLOWABLE  DEFLECTION  =  STIFFENER  SPAN/XXX 
i.  SUGGESTED  VALUE  FOR  XXX  IS  240) 

5  240 


CONDITION 


DO  YOU  WANT  TO  SPECIFY  A  MAXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  UNDER  WIND  OR 
SEISMIC  FORCES?  (Y  OR  N) 

?  Y 


ENTE  THE  MAXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  UNDER  WIND  OR  SEISMIC  FORCES: 
ENTER  XXX,  WHERE  MAXIMUM  ALLOWABLE  DEFLECTION  a  STIFFENER  SPAN/XXX 
?  180 

DO  YOU  WANT  TO  SPECIFY  A  MAXIMUM  ALLOWABLE  STIFFENER  DEFLECTION  UNDER  EXCURSION 
CONDITIONS?  (Y  OR  N) 

?  N 


ENTER  THE  APPROXIMATE  WEIGHT  OF  INTERNAL  BRACING  IN  THE  DUCT  SPAN  IN  POUNDS 
?  0 
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ENTER  THE  WEIGHT  OF  THE  DUCT  INSULATION  AND  LAGGING  IN  PSF 
?  7 

WHAT  SHAPE  STIFFENERS  DO  YOU  WISH  TO  USE?  (W  =  W  SHAPE.  WT  =  STRUCTURAL  TEE . 
C  =  CHANNEL) 

WT 

SMALLER  STIFFENER  SECTIONS  MAY  RESULT  IF  THE  STIFFENERS  ARE  CONNECTED  TO  THE 
DUCT  PLATE  WITH  CONTINUOUS  WELDS. 

WILL  THE  STIFFENERS  ON  SIDE  1  BE  CONTINUOUSLY  OR  INTERMITTENTLY  WELDED  TO  THE 
DUCT  PLATE?  (I  »  INTERMITTENT  WELDS.  C  =  CONTINUOUS  WELD) 

?  I 

WILL  THE  STIFFENERS  ON  SIDE  2  BE  CONTINUOUSLY  OR  INTERMITTENTLY  WELDED  TO  THE 
DUCT  PLATE?  (I  =*  INTERMITTENT  WELDS,  C  =  CONTINUOUS  WELD) 

?  I 

WILL  THE  STIFFENERS  ON  SIDE  3  BE  CONTINUOUSLY  OR  INTERMITTENTLY  WELDED  TO  THE 
DUCT  PLATE?  (I  =  INTERMITTENT  WELDS,  C  =  CONTINUOUS  WELD) 

?  I 

WILL  THE  STIFFENERS  ON  SIDE  4  BE  CONTINUOUSLY  OR  INTERMITTENTLY  WELDED  TO  THE 
DUCT  PLATE?  (I  =  INTERMITTENT  WELDS,  C  =  CONTINUOUS  WELD) 

?  I 


SMALLER  stiffener  sections  may  result  if  THE  EXTERIOR  FLANGES  (FLANGES  NOT 
IN  CONTACT  WITH  DUCT  PLATE-)  ARE  BRACED  AGAINST  TWIST  OR  LATERAL  DISPLACEMENT. 
SUCH  BRACING  MAY  BE  PROVIDED  BY  WELDING  STRAPS  OR  BARS  PARALLEL  TO  THE 
LONGITUDINAL  DIRECTION  OF  THE  DUCT  TO  THE  EXTERIOR  FLANGE  OF  EACH  TRANSVERSE 
STIFFENER. 

WILL  INTERMEDIATE  BRACING  AGAINST  TWIST  OR  LATERAL  DISPLACEMENT  OF  THE  EXTERIOR 
STIFFENER  FLANGES  ON  SIDE  1  BE  PROVIDED?  (Y  OR  N) 

?  N 


WILL  INTERMEDIATE  BRACING  AGAINST  TWIST  OR  LATERAL  DISPLACEMENT  OF  THE  EXTERIOR 
STIFFENER  FLANGES  ON  SIDE  2  BE  PROVIDED?  <Y  OR  N) 

?  N 


WILL  INTERMEDIATE  BRACING  AGAINST  TWIST  OR  LATERAL  DISPLACEMENT  OF  THE  EXTERIOR 
STIFFENER  FLANGES  ON  SIDE  3  BE  PROVIDED'5  (Y  OR  N) 

5  N 


WILL  INTERMEDIATE  BRACING  AGAINST  TWIST  OR  LATERAL  DISPLACEMENT  OF  THE  EXTERIOR 
STIFFENER  FLANGES  ON  SIDE  4  BE  PROVIDED?  (Y  OR  N) 


PIWslED-END  STIFFENER  DESIGN 


ENTER  A  TRIAL  NOMINAL  DEPTH  (IN  INCHES)  FOR  THE  STIFFENER  SECTIONS 
(REMINDER:  STIFFENERS  ON  ALL  FOUR  SIDES  OF  THE  DUCT  ARE  DESIGNED  TO  HAVE  THE 
SAME  NOMINAL  DEPTH) 

?  6 


PINNED-END 

STIFFENERS 

SIDE  1 

SIDE  2 

SIDE  3 

SIDE  4 

STIFFENER  SPACING 

60 

60 

60 

60 

( INCHES) 

STIFFENER  SECTION 

WT6X13 

WT6X17.5 

WT6X13 

WT6X17.5 

DO  YOU  WISH  TO  SELECT  PINNED-END  STIFFENERS  WITH  A  DIFFERENT  NOMINAL  DEPTH? 
(ENTER  Y  OR  N) 

?  N 


DO  YOU  WISH  TO  SELECT  DIFFERENT  STIFFENER  SPACINGS?  (Y  OR  N) 
?  N 


DO  YOU  WISH  TO  EXECUTE  THE  RIGID  FRAME  STIFFENER  DESIGN  PROGRAM?  (Y  OR  N) 


RIGID  FRAME  STIFFENER  DESIGN 


ENTER  A  TRIAL  NOMINAL  DEPTH  (IN  INCHES)  FOR  THE  STIFFENER  SECTIONS 
( REMINDER i  STIFFENERS  ON  ALL  FOUR  SIDES  OF  THE  DUCT  ARE  DESIGNED  TO  HAUE  THE 
SAME  NOMINAL  DEPTH) 

?  £ 


SIDE  1 

RIGID  FRAME 

SIDE  2 

STIFFENERS 

SIDE  3 

SIDE  4 

STIFFENER  SPACING 

£0 

£0 

£0 

£0 

( INCHES) 

STIFFENER  SECTION 

WT£X9 .3 

WTfiXl 7 . 5 

WTfiXl 3 

WTfiXl 7. 5 

DO  YOU  WISH  TO  SELECT  RIGID  FRAME  STIFFENERS  WITH  A  DIFFERENT  NOMINAL  DEPTH? 
(ENTER  Y  OR  N) 

?  N 


DO  YOU  WISH  TO  SELECT  A  DIFFERENT  STIFFENER  SPACING?  (Y  OR  N) 

( REMINDER i  STIFFENER  SPACINGS  ARE  THE  S^IE  FOR  ALL  FOUR  SIDES) 
N 


DO  YOU  WISH  TO  EXECUTE  THE  PIWED-END  STIFFENER  DESIGN  PROGRAM?( Y  OR  N) 
?  N 


I 


I 


i 

a 
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DUCT  SECTION  CHECKS 


THIS  PROGRAM  APPLIES  TO  DUCTS  WITH  RECTANGULAR  CROSS  SECTIONS  ONLY.  DUCT 
SECTION  CHECKS  FOR  DUCTS  WITH  OTHER  THAN  RECTANGULAR  CROSS  SECTIONS  MUST  BE 
ACCOMPLISHED  BY  HAND. 

ENTER  POISSON'S  RATIO  FOR  THE  DUCT  PLATE 
?  .3 

ENTER  THE  DUCT  WIDTH  (INTERIOR  HORIZONTAL  DIMENSION)  IN  INCHES 
?  144 

ENTER  THE  DUCT  HEIGHT  (INTERIOR  VERTICAL  DIMENSION)  IN  INCHES 
?  168 

ENTER  THE  DUCT  SECTION  CLEAR  SPAN  IN  FEET 
?  47.5 

ENTER  THE  PLATE  THICKNESSES  (NOT  INCLUDING  CORROSION  ALLOWANCES)  OF  SIDES  1.  2. 
3  AND  4,  IN  DECIMALS  OF  AN  INCH.  (SIDE  1  IS  TOP  PANEL,  SIDES  2  AND  4  ARE  SIDE 
PANELS,  SIDE  3  IS  BOTTOM  PANEL) 

?  .25, .25, .25, .25 

ENTER  THE  INTERIOR  PANEL  STIFFENER  SPACINGS  FOR  SIDES  1  THROUGH  4  IN  INCHES 
?  60,60,60,60 

ENTER  THE  END  PANEL  STIFFENER  SPACINGS  FOR  SIDES  1  THROUGH  4  IN  INCHES 
7  30,30,30,30 

ENTER  THE  NOMINAL  STIFFENER  WEIGHTS,  IN  PLF ,  FOR  SIDES  1  THROUGH  4 
?  13,17.5,13,17.5 


ENTER  THE  UNIT  WEIGHT  OF  THE  CORNER  ANGLES  IN  PCF 
?  490 


.  -J*  * 
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ll 


ENTER  THE  EQUAL  LEG  CORNER  ANGLES  SELECTED  FOR  CORNERS  1,  2,  3  AND  4 


NOTE:  CORNER  1  IS  THE  “UPPER  LEFT"  CORNER  OF  THE  DUCT,  AND  CORNER  NUMBERING 

PROCEEDS  CLOCKWISE  AROUND  THE  DUCT.  EXAMPLES  OF  THE  INPUT  FORMAT  INCLUDE 
L3X3X4 ,  L3. 3X3. 5X3,  L4X4X8  AND  L5X5X12,  WHERE  THE  FIRST  TWO  NUMBERS  IN  THE  INPUT 
STRING  ARE  THE  ANGLE  LEG  LENGTHS,  AND  THE  LAST  NUMBER  IS  THE  ANGLE  THICKNESS  IN 
SIXTEENTHS  OF  AN  INCH.  UNLESS  SPECIAL  CONSIDERATIONS  DICTATE  OTHERWISE,  ALL 
FOUR  CORNER  ANGLES  SHOULD  BE  THE  SAME  SIZE.  THE  LIGHTEST  RECOMMENDED  CORNER 
ANGLE  IS  L 3X3X4 . 


?  L 3X3X4 , L3X3X4 , L3X3X4 , L3X3X4 


ALL  OF  THE  DUCT  SECTION  DESIGN  CRITERIA  ARE  MET  FOR  THE  DUCT  SECTION 
CONFIGURATION  SHOWN  BELOW 


DUCT  WIDTH 

( INTERIOR 

DIMENSION) : 

144  INCHES 

DUCT  HEIGHT 

(INTERIOR 

DIMENSION) : 

168  INCHES 

DUCT  CLEAR 

SPAN: 

47.5  FEET 

SIDE  1 

SIDE  2 

SIDE  3 

SIDE  4 

PLATE  THICKNESS  ( INCHES)* 

.25 

.25 

.25 

.25 

INTERIOR  PANEL  STIFFENER 

£0 

60 

60 

60 

SPACING  (INCHES) 

END  PANEL  STIFFENER 

30 

30 

30 

30 

SPACING  (INCHES) 

NOMINAL  STIFFENER 

13 

17.5 

13 

17.5 

WEIGHT  ( PLF) 

*  NOT  INCLUDING  CORROSION  ALLOWANCE 

CORNER  1 

CORNER  2 

CORNER  3 

CORNER  ■ 

CORNER  ANGLE 

L3X3X4 

L3X3X4 

L3X3X4 

L 3X3X4 

DO  YOU  WISH  TO  REEXECUTE  THIS  PROGRAM  (DUCT  SECTION  CHECKS)?  (Y  OR  N) 
•>  N 


DO  YOU  WISH  TO  EXECUTE  THE  BEARING  STIFFENER  DESIGN  PROGRAM?  (Y  OR  N) 

?  Y 


I4KMKI 


-P  - 

% 


a 


BEARING  STIFFENER  DESIGN 

WHAT  SHAPE  BEARING  STIFFENERS  DO  YOU  WISH  TO  USE?  (W  =  W  SHAPE, 

WT  =  STRUCTURAL  TEE,  C  =  CHANNEL) 

?  WT 

ENTER  A  TRIAL  NOMINAL  DEPTH  < IN  INCHES)  FOR  THE  STIFFENER  SECTIONS 
(REMINDER:  STIFFENERS  ON  ALL  FOUR  SIDES  OF  THE  DUCT  ARE  DESIGNED  TO  HAVE  THE 
SAME  NOMINAL  DEPTH) 

?  6 


RIGID  FRAME  BEARING  STIFFENERS 


SIDE  1 


SIDE  2 


SIDE  3 


SIDE  4 


STIFFENER  SECTION 


WT6X15 


WT  6X13 


DO  YOU  WISH  TO  SELECT  RIGID  FRAME  BEARING  STIFFENERS  WITH  A  DIFFERENT 
NOMINAL  DEPTH?  (Y  OR  N) 

?  N 


THIS  CONCLUDES  THE  DUCTWORK  STRUCTURAL  DESIGN  PROGRAM 


